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Esiste un modem da col legare al- 
lo Spectrum? Se si, qual’*, e coma 
si collage? (vari tenori) 

l modem, sia integrati, cioè allac- 
ci ali di rettameni e al la rete tei efori i- 
cs, eia ad accoppi armento acustico, 
che usando la cornetta di un norma- 
le telefono, si coi legano al compu- 
ter attraverso una porta seriale 
(HS23Z-C), Perclù qualsiasi modem 
è in, linea di massima collegabile al- 
to Spectrum. perchè questo sia do- 
tato di Interfaccia 1- Altra cosa S pe- 
ro il funzionamento; Il software ne- 
cessario, per poter dialogare senza 
problemi con altri computer, deve 
essere realizzato con molta Sba- 
stiamo mettendo a punto un simile 
programma, sulla spinta delle nu- 
merose richieste, a lo pubblichere- 
mo prossimamente. 

Le stampanti SBikosha GP1WVC 
e GP5Q0-VC sono collegabili allo 
Spectrum? (A. Tari eco Bergamo) 

No: le Selk-osha serie VC seno in- 
terfacciale per Commodore. Il cui 
controllo per la stampa non è stan- 
dard. Si tratta peraltro di stampanti 
con prestazioni identiche alle 
QP100 e 500 normali. 


Monitor 

Continuano a giungere in reda- 
zione domande sul monitor ohe 
si possono usare e come devono es- 
sere collegati allo Spectrum o al 
Ql Ripetiamo ancora una volta 


(speriamo sia l'ultima)- che allo 
Spectrum non può essere collegato 
in nessun modo un monitor che ri- 
chieda segnale RGB, a colori eepa- 
rati; sono invece facilmente utilizza- 
bili I moni (or a colori con segnale 
composite, e ovviamente tutti i mo- 
nocromatici. Qualsiasi monitor, 
RGB compresi, può essere usato 
con il QL, anche se per poter sfrut- 
tare la massima risoluzione occorre 
un apparecchio appositamente ta- 
rato. 


Quanto al modo di coi legare vi- 
deo e computer, vi rinviamo all' arti- 
colo apparso sullo scorso numero; 
in generale, l'unica posa che vi ser- 
ve è la pi ed in atura del connettore 
del moni tor. 

Alcuni lettori lamentano la non 
reperibilità del software recensito 
nelle rubrica giochi: effettivamente 
in alcuni casi sono state presentate 
"primizie", che pud essere difficile 
reperire, soprattutto fuori dalla 
grosse città: i dietri bui ori non han- 
no mai brillato per sollecitudine e 
capi Ilarità. Vi assicuriamo comun- 
que che i giochi esistono tutti: le 
schermate riprodotte sono sempre 
fotografie originali eseguite da noi. 


re al tasti rimari accia Kempston? 
Come tendone la cassetta pulisci 
testine? (M. Moni e forti - Pont adar a) 

L'assemblm è un linguaggio e, 
come il basic o il Pascal, richiede 
un compilatore, che funga da "Inter- 
faccia'’ con la CPU. Il fatto che il ba- 
sic nei mlcrocomputer sla residente 
in ROM non cambia \ termini delia 
quest ione fi grossi computer non 
hanno mai linguaggi residenti), Na- 
turalmente, nulla, vieta di fare a me- 
no- del programma compilatore, 
scrivere l 'assembler sulla carta e 
caricare direttamente i codici nel 
computer: se vi piace tanto fare a 
mano anche II debug... 

Le interfacce joystick in generale 
usano l'Istruzione IN, presente su Ha 
tastiera delio Spectrum per la ge- 
stione degli Input: cfr. la rubrica 
"Un testo per volta", pubblicata in 
più parti sulla rivista, In cui abbia- 
mo analizzato tutte te funzioni di- 
sponi bili. 

Le cassette a alisei -re sii ne p 3 ù co- 
muni sono scansi gl labili, in quanto 
abrasive: riducono di molto la dura- 
ta delle testine del registratore. Esi- 
stono prodotti più sofisticati e deci- 
samente più affidabili, dedicati 
ali'Hi Fi II sistema classico e "po- 
vero” più in uso e costi luito da uno 
stuzzicadenti, un poco di cotona a 
l'apposito liquido detergente. 



É&isto un comando diretto per 
programmare in assemblar? Quali 
comandi bisogna usare per sostituì- 
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Supponendo di valer mantenere 
In memorie due programmi diverti 
contemporaneamente, uno sotto e 
uno eopre HAMTQP, quell variabili 
di stato è necessario modificar# per 
"commutare" dall'uno all'altro? (L 
QM&kml - C. Magrtago VA) 

Non è possibile tenere in memo- 
ria due programmi basic in aree di- 
verde delta memoria nel modo che 
ipotizzi- sopra RAMTQP si pud col- 
locare soltanto linguaggio macchi- 
na, Questo perché tra fa fin# 
dell'area basicfvariablll a RAMTOR 
esiste un'arsa di RAM in Cui il pro- 
cessore colloca stack di lavoro a 
suo oao e consumo, non trasparenti 
all 'utente. 


Come al use il word-processor 
Tasword con le ilamparrtf Seiko- 
aba? Come si usa lo Spectrum Wrl- 
ter con le Epson A Contabili? hard- 
copy con printer con Epson, Abbi- 
namento Sp, Wriler e Interi Karnp- 
Stori- (vm 

Il word-processor TASWORD li é 
previsto per l'uso con stampanti Ep- 
son e compatibili, # non funziona 
con le Seiko sha. Al contrarlo, la sua 
versione italianizzata Spectrum 
Writer prevede l'impiego delle Sei- 
kosha, e non funziona con tee Ep- 
son e simili. 

Allo stesso modo, le interfacce e 
li software per eseguire listati, 
stampe diverse e hard-copy ò diver- 
so per le due serie di stampanti: oc- 
corre controllare al momento 
dell'acquisto che il prodotto sla 
quello compatibile con la stampan- 
te {o viceversa): in alcuni casi H pro- 
gramma # configurata le per diversi 
tipi di stampanti, modificando alcu- 
ni parametri, in ali ri è fisso e funzio- 
na con un solo modello, 

A quasi un anno di distanza rice- 
viamo ancora richieste di invio di 
software dal catalogo pubblicalo 
sul n. 09: ripetiamo che noi non ve- 
diamo quei programmi, li abbiamo 
solo catalogati per offrirvi un elen- 
co ragionato d! ciò ohe allora iota- 
mai é totalmente superato) abbia- 
mo trovato in circolazione, preci- 
sando (ancora a suo tempo) ohe 
non tutti i programmi si trovano in 
Italia. 


È naturale che II trasformatore 
scaldi più dal computar? È dannoso 
tenerti a lungo accesi, e tenere col- 
legati I cavi dal registratore? il pro- 
gramma Music Colpi lai del n. Il 
{febbraio) va in errore quante inseri- 
sco la note. Mei listati appare II sim- 
bolo , nw presente sulla tastiera 
dello Spectrum, (E. Baldo - Marnai 
Non dovrebbero scaldare molto 
nò II computer nò l 'ali meni at-ars (il 
'■motto'' ò un pramétro soggettivo, 
direte voi: Insomma , un uovo versa- 
to sulle tastiera non dovrebbe frig- 
gere...), ma certo è mano rischioso, 
anche economicamente, che scaldi 
un pò tanto il secondo piuttosto 
che li primo. Lo Spactrum può re- 
etere accaso per molte ore senza 
problemi; l cavi possono rimanere 
inseriti In permanenza (a parte to- 
gliere EAR durante il SAVE); Music 
Compi ler (uscito in due parti sui nn. 
11 e 15) funziona regolarmente, ma 
occorre seguire attentamente le 
Istruzioni; Il segno (accento cir- 
conflesso) è 11 codice ASCII 94, che 
Indica l'elevamento a potenza (ma 
quante volte dobbiamo ripeterlo an- 
cora?), che ro Spectrum scrive sul 
video come una freccia rivolta In su 
(non molto diversa, ci sembra). Pur- 
troppo per voi, tutte le stampanti in 
clrcolazloe seguono io standard 
ASCII e stampano il simbolo in que- 
sto modo. 



Tenendo la radio presse fi compu- 
ter, quest'ultimo provoca disturbi 
all 'ascolto: «1 può rimediare? IP. 
Passavano - Afòa CrtJ 
No: la circuitene dbì computer, con 
gli oscillatori ai quarzo, genera ra- 
diofrequenze che "sporcano" Irri- 
mediabilmente J 'ambi ente circo- 
stante, & meno di tenere la macchi- 
na entro contenitori scherma nti- 
L' emissione è però di potenza mol- 
to limitata, basta allontanare un pò 
la radio. 


Ho saputo dell'esistenza di sche- 
de oerla ricezione del tvleirideo. E 
possibile una simile scheda per la 
Spectrum? Ne pubblicherete 11 pro- 
getto? (A, Ruggiero - Firenze) 

la scheda per la ricezione del te- 
levideo non ò cosi semplice come 
sostieni nella lettera, se si desidera 
un risultato almeno docente*. Non 
abbiamo polizia, per ora, deila com- 
mercializzazione di schede apposi 
te per io spectrum, ma sappiamo di 
privati che le hanno costruite In pro- 
prio. 

Ho tentato di collegare il mio QL 
a un monitor RGB tramite presa 
SCART, ma la conseguenza è stata 
la perdita permanente del color# 
(anche col normale TV), Che cosa 
può essere successo? Pubblichere- 
mo lo schema hardware del QL? fi. 
Rimessa - Sapj'srd'flrana GE) 

Non hai precisato come ò stalo 
collegato il QL, Non abbiamo in pro- 
gramma di pubblicar# lo schema 
hardware. 

Qua i"è II migliar assemblatore 
per lo Speci rum? SI può avere il dl- 
saasemblata delta ROM ambra? (G 

Tagliavini - Parma} 

Il nostro personale 8 opinabile 
parer# ò che U migliore reali sempre 
quello risila Hi -Soft, ma ve ne sono 
altri di ottimi. 

li disasaamblato delia ROM om- 
bra risNTnterfaccfa 1 é disponibile 
in Inglese, pubblicato sempre dalla 
Melbourne, editrice anche del libro 
sul sistema operativo dello Spec- 
irum; l 'autor# c Gianluca Carri, un 
nome gi& noto ai lettori di SC- 

Perché osi listati dei programmi 
in linguaggio macchina usai# sem- 
pre 1 codici es adecimati, anziché 1 
più comodi e semplici decimali? (D- 
Leoni - Firenze) 

I listati In linguaggio macchine 
vengono riprodotti come li stampa 
il programma di sassemblatore. Si 
preferisca l'uso delta numerazione 
eaadecimale per vari motivi; si Inco- 
lonnano più ordinatamente, essen- 
do sempre di due offre; risultano più 
facili la conversazione In binarlo, la 
separazione In bylealtoe byte bas- 
so, e aure operazioni frequenti du- 
rante Fa programmazione e soprat- 
tutto nel debug del programmi. 
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Steven H arri n glori 
Computer Graphics 

McGraw-HB, 1985 - p. 520 - L 39,000 


Se il prezza di questo libro vi impressiona, date uno sguardo anche al nume- 
ro de ila pagine, confrontatelo con gli aldi e vedrete Che non à poi ece&Siivtì. 

Anche perché questa è l'edizione italiana di una delle Èv'ftWe delTargahiém 
to, già Booti 3(9 coma manuale in corsi al prpgrammMione di vàri paesi. 

Pur non svendo menta a che vedere con lo Specbum (nè bob nessun altro 
specie» computer), lo presentiamo ritenendo di potar interessare un pubblico 
abbastanza «sto; non pensale dh& sia un libro particolarmente diffidisi le co- 
noscenze d i matamati ca richieste sonò liceali, per buona parte del libro portino 
infàriOfl. 

L'àpprOccio di programmazione è sempre teorico, senza riferimento a speci- 
fici linguaggi: l'ideale per scriver* routine* di grafica sarebbe H PASCA!,., ma 
anche in basic Si possono lare interessanti esperimenti. 

La di ff iconò maggiore, per coi ha io Speci rum. sarà quella della memoria di- 
sponibile, poiché queste genere di programmi è sempre molto ingombrarne 
Con II QL Si poi ranno avere grosse soddisfazioni, grazie alle strutture del Su- 
perbeslc, molto vicine al Pascal, e ali' ampiezza delia RAM a disposizione. 
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David Laine 

Spectrum; tecniche avanzale dì I. macchina 

Franco Mutilo & C. E Nitore, 1985 - p. 152 - L. 18.000 

Questo libro si presenta come fa naturate prosecuzione del volume recensito 
suffco scorso numero* appartenente alla si essa collane; io realtà, non essendo 
un lavoro susseguente degli slessi autori, non esiste collegamento ira l due le- 
sti- 

il litro di D. Lains si pone a un livello più alto di quell* di Stewart e Jones, ed 
è quindi per chi Ha già qualche conosconza di linguaggio macchina, ma contie- 
ne ripetizioni che potevano eSSare evitale dal trad littore {th*£ il medesimo per 
i due libri), a tutto vantaggio della finanze e deila pazienza di chi légge. 

Un libro che si propone come "Tecniche avanzate'’ potrebbe inietti sènza 
grossi problemi tralasciare 15 pagine su stack, rappresentazione dei numeri e 
modi: di indirizzamento. 

Det to questo, l capitoli ceni radi, quasi l si di tecniche avanzate, sono decisa- 
mente mi stessami: invio di dati allo schermo, Animazione dei disegni, Tratta- 
mento degli errori. Passaggio di parametri, Graifós in aita risoluzione, eie. L'In- 
sieme à ben curato anche redaztonsdmente, con numerosi e precisi diagrammi 
di flusso e listati ben leggibili. 
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Peter Scharf 

Genitori nell'era del computer 

McGraw-Hiit , 1985 ■ p. 252 L 19.000 

"In Che modo à possibile servirsi del computer ft*U‘«fUM 2 fcjntì dai Tigli? In 
cha misura | computar cambierà 5a scuola? Qual'è il Software più adalto per 
silmoisre la creatività dal bambini? I videogiociii fanno male? (...) Entralo di 
prepotenza in casa e nelia scuole, il computer non è solo una macchina per 
giocare, ma un polenta strumento di apprendimento e un elemento di stimolo 
aii 'espressione creativa e alio avNyppo delle capacità logiche, con il quale ge- 
nitori e insegnanti davano confrontarsi 1 '. [dalla copertina;.. 

Peter ScharF, che dice di avere quattro tigli maniaci del compuler, affronla 
nel libro queste domande e racconta le sue esperienze, traendone risposte, 0 
anche Solo opinioni, più O meno discutibili, Pur soffrendo un pó dei tipico sem- 
plicismo à ma ricamo neli'affrontare certi problemi, il libro à abbastanza Interes- 
sante par trarre spunti di discussione 0 riflasSicna, soprattutto bé aiate genito- 
ri 0 insegnanti, a avaie a Che tare COn videomàni in erba. 
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un computer 
per insegnante 




A una festa di fina anno, in ufi! 3CUO- 
la media ne il 'hinterland di una Città in- 
(lustriate dei Nord, fasi Ina con canti, 
traili, abbuffale, libri e oggettlni In vendi- 
l a per raccogliere Qualche lira a eo sta- 
gno del magro onerici o. i partecipanti si 
affollavano diventi alla porta dì un'au- 
la. Dentro, un manipolo di zingarelll elei- 
ironici, per poche I ira, faceva l'oroscopo 
con It computer. Par fé cronaca, un C64, 
di proprietà dalla acuoia. 

dicono ì nuovi programmi per la scuo- 
la elementare: "La scuoia attua i suol 
compiti secondo un disegno preordina- 
to, cioè seguendo le linee 01 un pro- 
gramma". Giocando Sul doppio Sènso, 
viene epontaneo domandarsi in che lin- 
guaggio sla scritto II programma di cui 
seguir le linee. Basic. Logo, o che altro? 

La direttive prevedono che anche net- 
ta scuola inferiore, a fianco dell'Inglese, 
entri l'informatica. Ma come e quando 
nessuno ancora è in grado di di rie dal 
prossimo anno scolastico, dicono i pro- 
clami ministeriali, e già alia maggioran- 
za della popolazione coinvolta vangane 
I eri vici. Ad alcuni di piacere, al più di 
smarrimento. 

Nei frattempo, ogni scusa è buona 
per produrre carta sismpasa. Cesi, cer- 
cando documentazioni, ci slamo for»- 
(àmertle resi conto del caos che regna 
sulfàrgomento: un mercato inflaziona- 
to, sia di hardware eh* di software, in 
cui nemmeno i boni informali possono 
essere certi di compiere le scelta miglio- 
ri^ le disposizioni min -sterialì vagheggia- 
no dì una non meglio precisata Introdu- 
zione del l'informatica nella scuola ete- 
mentare e superiore, ma sembra che si 


siano dimenticati la mediai nessuno o 
quasi ha ancora capito se sk woie un 'in- 
formatica come materia a sè, o una 
"metadlsciplrna' , 1 che entri orizzontai- 
mento in tutta II ealtorè tecnico- 
scientifico, e forse anche In quello uma- 
n litico, 

l mass-media, dai canto loro, produ- 
cono le consuete valanghe di parale: du- 
rame Fa scorsa primavera a pane 
del Testata più o meno tutti i giornali pe- 
riodici, specializzati e non. sono interve- 
nuti sul tema iniormaÈica.'didàttiC.a, pan- 
dolendo con ose nazioni di pari ampiéz- 
za da l'accetta? iene scrii Ica al rifiulo 
aprioristico, con tutta la sfumature pos- 
sibili. 

Nel marasma di software prodotto, 
imitate, copiato, c'è una quantità di cas- 
sette o dischi che ai presenta come pos- 
sitele strumento "didattico". Giochi più 
0 meno ben vestili m CUI bisogna spara- 
re alte desinenze sbagliate, gl usi aman- 
te "aliène" (è soto un esempio, vorrei 
dare «n'idea dèi metodo). Ci sono buoni 
programmi per le materie tecniche, co- 
me aritmetica o chimica: guidano .al di- 
segno di una proiezione o al bilancia- 
mento di una reazione acido-base. Cose 
che s potrebbero fere, al live: lo appunto 
didattico, altrettanto bene dai varo, sen- 
za Il computer, senza li rischio di aliena- 
re rari levo dàlia vite reale e dall'Inse- 
gnante. Non mi sembra una grande tro- 
vata. come critèrio didattico. 

La smanie di malfarsi in mostra dai 
presidi d'assalto non ve quasi mai di pa- 
ri passo con un'adeguata e preventive 
informazione: cosi accade che si spen- 
dano alcuni milioni per far acqui sfare ei- 
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li «cuoia un parsemi/ eli livello prafes- 
S iemale , quarto con la Messa cil-ra si 
a ikftìpt*iffj potuta avare dieci a piu mac- 
china dalle prestazioni limitata. una con 
quell un'intera classe pcHrabtn lavorare 
wn donerai coni ender * Tunica tastie- 
re 

Non ai 1 ratta d» Milioni n*ì II Conve- 
gno mlemajiQcnte evll'informaticfl nel- 
le «cuoia, lenuio e Oaatighoncailti (Li- 
nomo) nei marza scorso, e amar» che 
un'llllUlma percentuale del computer 
acquisi ali dalla scucia il trova Inutiliz- 
zata francamente in cani Inai o soltau- 
h lizzili □ convertila ed applicazioni 
cofncifiamente diverse de qv*ue prein- 
>le 

£tt*iono sntha inrztaiive poeiliv*. fi*- 
i oralmente, spesso arila aie alia volontà 
• creai mia di un singolo 

te scuole H sp«lmanteH" conducono 
□peràz ioni d'ava ■guardia, restando kj- 
atanzIalmentB Isolale, proprio perchè 
tròppo d' av angoard a, e quindi non ripe- 
tati e DaneralisetrlU 

Sen qiaci Sfinì fa un insegnarne di 

i**« scuote etemeni-ar* di Trieste intra- 
butte ta programmazuorte nel tuo piana 
di leverò, utilizzando quello che- allora 
era diaponlfaila, cioè calco-lalrrci pro- 
gni mmahili, 

■I progetto [R|$ lini fi ulive e Ricerche 
per i lntormatice nelle Scuola}, qua- 
drltnnaie- # un eeperlmenio condotta 
tu 22 scuole di diverso grido sui metodi 
di imagiMiTeitD della nuova materia. 

La associazioni di qalegorie promuo- 
vono In po' ovunque corei di "elfabetu- 
zazione" Intarmai Ica per gli n segnami, 
pha lamentano un generale dlsonenla- 
m or 1 . io di Ironie elle fuga m «vanii degli 
■Ulivi, che psdrofieggrano Ja "macchine 
inlerneil' 1 mono meglio di loro 

Spesso poi guasti corei, tenui i e toro 
volte de personale iscfiiCHUnenlé qualifi- 
cato me didatticamente inetto, a« risol- 
vono in pialti e nomai corn d> program- 
m azione in basi c, quendo non in un 
qualsiasi dia lei to beale, condizionato 
delio sponsor che otti* le macchina, 

Non a caso il CNft iCentro Nazionale 
Acer che| coordina sperimentazioni sul 
Logo e, in generai®. Sull* programma- 
zione strutturata dal punto di vtsle pe- 
dagogico il basic viene consideralo un 
pessimo stramonio. assando ufi *lfi- 
guaggidi non strutturala ohe "<a (toppe 
□ose' e consente soluzioni conlorte, 
prive di blocchi logici: I programmi che 
gir americani chiamano sPiQfteltt UXe 

PurtfDòpo il marcalo ha saldamente 
ancorale la maggior pene 0*1 pubblico 
al bara. "la nvolLizMmf informatica è 
appena agli inizi. agii ita penar indo un 
Suo con serv a l oriamo" he dello Sey- 
mour Pepert, il progettisi* del Logo 


Il linguaggio C 

di Psv 


Uà qualche l&mpo al unte parla- 
re con .ifiBistenze di un nuovo lin- 
guaggio, il "C”: nuovo per ■■ fattore 
del micro-computer, polche au gros- 
si sifilomi esiste già da veri viri (LI 
suo successo e iniziate Intorno al 
1978>, il C deve la suo lortuna al 
tolto che la maggior parte del siste- 
ma operativo UNIX (marchio regi- 
strala dei Laboratori Belli, lo stan- 
dard che si è imposto sul grandi cal- 
colatori, è stata scritto con esso. 

Con l'aumento delia velocità e 
della disponibilità di memòria Sui 
personal computer, la. distinzione 
tfa "grondi" e H 'picoùfk" diventa 
sempre piò aleatoria: una barriera 
slgnliicalivaà stata abbai lui a dalla 
Hewlett -Packard, con la prasenlst- 
Ztone di un parlatile che Implemen- 
ta I UNIX coma sistema operativo. 

L <n novazione ha scosso anche la 
stampa più restia ai facili ani usta- 
ami. tanto che qualcuno, uri pò Irei' 
foiosamente, è giunto m chiedersi 
se I grossi mainframe non alano già 
de si Inali a scomparire come I dino- 
sauri. 

Tulio questo che centra cor il 
QL o con il simpatico ma inesorabil- 
mente piccolo Speci rum? Centra, 
perche per entrambi »oo disponi- 
bili dei serissimi compilai ori JJ C": il 
OC della GST Compuiar e (annun- 
ciato! un della Lai dea, commer- 
cializzato direttamente dalla Sin- 
clair, par il QL: il "G" della Hi-Soft, 
ta cosa ben nota I suol ottimi 
assembri aiorerimonitar. Placet, etc , 
per io Sped rum. 

inoMre, con il QL al pieno della 
Sua potenza per quanto riguarda 
Thardware, cioè con espansioni 


RAM a defluì supporti di massa 
(floppy ad alta capacità o 
hard-disk). non à affatto improbabi- 
le chi presto si possa avere TUNiX 
a disposizione anche su questi 
macchine 

La portabilità 

Tutti i libri e gir ardcoh che legge- 
rete sul C esorditali no mettendo 
l'accento sulla tfaspon abilità come 
una delle prerogative più Importanti 
del linguaggio In al (et li. abbiamo 
dello eh# il C ha avuto fortuna per- 
che usalo per scrivere TuNiX. ma è 
anche vero ■■ contrario - che l’UNLX 
si à imposto come nuovo standard 
perché scritto in C. 

Il C non è un linguaggio a livello 
basso come un assembler, stretta- 
mente legato alla CPU: à ancor# ab' 
bastanza leggibile, molle parg-ie- 
chiavo sono già familiari a chi cono- 
sce il basic o il Pascal, e risolta ab- 
bastanza facile da Imparare. 

Non è nemmeno a Fi vello "alto" 
come II basic, il che gft ha rispar- 
miato di differenziarsi in dialetti le- 
gali alle singole macchine, garan- 
tendo la quas^ completa pori abilità 
e I" indipendenza dei sistemi opera- 
tivi e dalle macchine. 

É mollò più ett igieni e di un basic, 
e abbastanza poco mono olile ioni e 
di un assembler da consentire di 
scrivere un sistema operativo quasi 
lutto in C - appunta l'iltoiX Tanto 
che uno degli autori confessa 
nell "introduzione del manuale di 
non conoscere affatto l assemblei 
del PDP-11, la macchina su cui à 
stata scritta la prima versione 

Isvyufl APOS +?l 
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introduzione 


di Mariangela Guardione 


Seconda parte della 
teoria del database: con la 
nostra cassetta sempre in 


Padri e figli 

Questi vincoli possono essere cosi 
descrìtti: 

• ogni padre può av&re più figli: 

• ogni figlio appartiene ad un solo 
padre: 

• sono possibili allagamenti tra livelli 
contigui, noi senso che non risulta possi- 
bile eseguile un coltegemerrto figlio- 


nonno senza passare attraverso il 

padre; 

• non sono possibili eotìegsn&ntl tra li- 
velli uguali; questo significa che due fra- 
telli non sono in comunicazione fra loto; 

• vi# un- $ok> possibile it ver» , ’dioofle- 
gamento che è quello della direzione 
radbe-frjglie dell'albero; questo implica 
che non risulta possibile "cidare" nelle 
struttura, in quanto un elemento non può 


essere contemporaneamente figlio e 
padre di un altro; 

* un elemento appartenente alla start- 
tura non può essere figlio o padre di se 
slesso. 

Tutte queste regole rivestono un ruolo 
molto importante e devono essere ri- 
spettate sìa durante fa progettazione 
che fa realizzatone e nell 'utilizzo di un 


10 - Sinclair Computer 


data-base etri struttura gerarchica, la 
cui rappresentazione è data in figuri 3 , 
In un data-base cosi strutturato l'unità 
logica compieta di mtormazione è un in- 
tero albero, »n quanto contiene tutte le 
informazioni relativa a una determinata 
situazione; queste sono costituite da 
sottoirssleml di intomn&zìom <ji e din- 
dono da altri soitoinetemi e le dipende^ 
ze esistenti fra essi sono regolate dai 
vincoli precedentemeente descritti. 

Lo schema logico di una struttura ad 
albero è costituito dall'insieme delta en- 
tità presenti nella struttura dei dati e dei 
collegamenti logici che esistono Ira di 
esse 

Per meglio esplicale la struttura ge- 
rarchica, si riporla questo esempio rela- 
tivo aJI'organlzzazIone eaila gestione di 
una biblioteca. 

Tramite un data-base gerarchico ri- 
sulta m fatti ben rappresentabile i a di- 
pendenza Libro <-> Collocazione, in 
quanto ad ogni libro (padre) sono asso- 
ciate più collocazioni (figli); al contrario 
ogni collocazione appartiene a un ben 
determinato libro. Si rispettano cosi le 
regole generali precedentemente de- 
scritte e rappresentate graficamente in 
figura 4. 

Nei caso in esame il data-base risulta 
essere à due soli irretii, in quanto a ogni 
libro è posa. b:le assodare tutte te mfey- 
maziani che lo riguardano corcandolo 
quindi, nella struttura, come entità costi- 
tuita de insaerriF di dati elementari che 
possono ad esempio essere. 

- titolo; 

- editore; 

- luogo di edizione; 

- data prima edizione; 

- prezzo. 

Anche la collocazione risulta essere 
un'enfrtè costituita da dati etamentah 
come; 

- sala; 

- scaffale; 

- ripiano: 

- posizione. 

chiamali comunemente "chiave di collo- 
cazione dei libn" 


In un data-base gerarchico, come 
quello dell'esempio precederne, deve 
essere consentito scorrere l'albero par- 
tendo dalla radice, per inoltrarsi tra i rami 
specificando opportune condEtoni e 
giungere a ottenere ta internazioni volu- 
te. Inoltre deve esistere la possibilità di 
accedere al database mediarne ta chia- 
vi che rappresentano uno qualsiasi dai 
dati cioncati a qualsiasi livello essi si 
travino. Da questo si deduce che non 
risulta obbligatorio visitare un albero dai 
nodo radice. Il tegame esistente fra pa- 
dre e figlio viene realizzato introducendo 
una “catena di puntatori", in quanto 
ogni padre contiene fra I suoi dall ele- 
mentari un puntatore al primo dei Figli 
ohe, a sua volta, ha un puntatore al fra- 
tello successivo e cosi via. 

L 'ultimo dei figli contiene un puntatone 
che indirizza al padre, chiudendo quindi 
la cataria come viene mostralo in Figura 
5 , 

In un data- basa gerarchico, quindi, 
deve essere possibile eseguire te se- 
guenti operazioni: 

- visitare l’albero secondo la sua natura- 
le struttura gerarchica; 

- accedere a un elemento dell’albero 
utilizzando una chiave di ricerca che evi- 
ti l'accesso a tutti i padri di 
quell'elemento; 

- accedere ai figli dr un determinato pa- 
dre attraverso una catena di puntatori. 

In un contesto questo tipo è possìbi- 
le eseguire le seguenti operazioni: 

* utilizzando una chiave di ricerca, leg- 
gere un elemento della struttura 
gerarchica: 

* accedere in lettura a un eternante del- 
la struttura che sia legato a uno prece- 
dentemente tallo; 

* leggere in catena il fratello del 
precedente; 

* inserirà un nuovo dato e ccitagario 
con i propri parenti: 

* cancellane un elemento e quindi scol- 
legarlo da tutti i suoi parenti; 

* sostituire II contenuto di un eternante; 

* inserire un intero albero: 

* cancellare un intero albero. 


E’ possibile avere in realtà situazioni 
che, non essendo di natura gerarchica, 
non possono essere descritte con una 
sfrutterà di questo tipo- 
irifatti nel caso in cui vi siano due enti- 
tà C e D togate da una relazione di tipo 
M:N 6 fra toro non sia possibile stabilire 
che C è il padre di D e viceversa, in 
quanto sono dello stesso livello e quindi 
legata fra loro, sarà necessario assume- 
re che uno di essi sia effettivamente 11 
padre e questo porterà ad una duplica- 
zione di Informazione nel database. 



Questo tipo di struttura usate por 
creare uri daia-baae si tonda sostanzial- 
mente su concetti basilari quaS; 

- record e tipo di record: 

-set. 

Il tipo-record rappresenta l’unità logi- 
ca di infdfmaztone in cui sono presenti 
più dati elementari il cui insieme costimi- 
soc un’entità. 

Se questo tipo-record r sulla essere 
accessibile direttamente, l'insieme di 
uno d più dati elementari viene dottarla 
come "chiave del record" e in questo 
caso l'insieme dei necords è visto come 
un normale File. Al confrario il set rappre- 
senta Il collegamento fra due tipi-record 
e risulta avere una direzione preferen- 
ziale che va dal tipo-record owner a 
quello memper. 

Il record pud essere selezionato attra- 
verso la propria chiave, chip viene detta 
' 'caie" o mediante un sei di cui il record è 
member; tutto questo non e sdutte però 
che il record abbia la possibilità si esse- 
re indirizzata in entrambi i sensi, 

Anche nel caso di una struttura rettoti 
lare esistono dei vincoli da rispettare 
nella costruzione del date-base, che 
sono; 

- il tipq-reoord cnwier pub avene più 
"members", 

- il tipo-reoord member può avare più 
“owners"; 

- iitipo-records non può essere bontem- 
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io deb gti insiemi XV ■ £ che non de*» 


por Bneansnte '‘oumer « ‘ memtoer r ci 
unUtro; 

- Il Ilpo-fecortj non può essere contem- 
" o "owrw"cà 


ime chiave del record iwò» , questa 


- il sei può coHegare piu ttjs-rBpqnJ che 


P«f spiegare ta maniere E*u chiare o» 

sa comportano questi Hpi pi Vincali sulle 

airuHurg logica dei dato-base, si appli- 
cano le seguami regole elle in dipen- 
di» Inalami di dati: 


* dipendenza f. l. ai questo rem a 
possono verificare io due posatoìMà: 

a) rn cut vi è un goto lipo-recond che 
contiene gli insiemi de» dati oonwindita- 
(0 nelle figure 6 e 6a; 


b)ta 

c oHegali fra tara maamo un set si ha 
un insieme cf dal» »w corna 1 rxtca (0 
in ligure 7; 

* dipendenza 1:N ; In questa situazio- 
ne, a seconda dell esistenza a meno di 


, figure a; 

* dipendenza M:M; in questa sltuazlo- 
ne, poiché non è posatone die un tpo- 

bsr e owner d ir atro, è 
definire un tape-record quale legame a 
connessione fra i Aie coma m figura 9. 

A illustrazione dal modello retìcolare 
si riporta il seguente esemplo, sempre 
relativo eirorgamzzaztore a «He gestio- 
ne di una btobofleca. 


kfetilrflcB con II sìmbolo R(X,Y,Z| una 
rei er iono su questi insiemi 

Se Questa risiila essere a sua volta 
un tastone d fHipte ottimale tali 
ctw 1 appartenga aX.yiVezeZ.ie 
relazione ftfX YZ5 è l» sottomani del 
prodotto cartesiana degli maier™ X.VZ e 
può essere eslege a un numera guatate- 
si 1 di Insiemi di dall . Graflcamenio questa 
relazione è espressa in figura 10 

Con questa modello ime situazione 
reale viene rappresentale con un «se- 
me dì reiezioni id eata con H nome d 
"scheme ntaztanata”. In cui * possibile 
definii» le seguono operazioni 
fondamentali: 

- sale none di una refezione: 

- piófenone di uns refezione. 

■ giunzione d due refenoA 

Le tre precedenti operazioni hanno in 
input una 0 più refezioni che apparten- 
gono aita schema refezione!» a tomi- 



base di tipo rstìcttare ri normazioni rh 
guardane t prestiti de» libn attenuati dalla 
biblioteca. si dovranno definire un tipo 
record denominata "tortore" 0 uno de- 
nominato 'libra'’, legali de una corri- 
spondenza M N e memorizzanti ngpetri- 
vamen«o 1 dati refeiM al iettare e ar Hxp 
L e corrispondenza u&fczzaia è mpo- 
sta dai tato che lo stesso libro pud esse- 
re prestata a più lettori che potranno 
avere in prestito piu liba Per meglio de- 
Unire quale fibra di un gruppo con identi- 
co Moto è stalo prestato ad un determi- 
nato lettore, è necessario Mattare un 
legame di tipo i;N r iramte fe ctttocazio- 
ne del Wura specifico netta trishotecs 

Modello reiadoneli 


iteft' ' che rw fe parte detto schema 
Combinando n mentore opportuna 
queste ire operazioni è posatolo ottene- 
re guatatosi informaziooe memorizzata 
nel date ■ base. 

§* prende ora megli in esame cia- 
scune delle precedenti operazioni 


schematizzazione teorica per fe struttu- 
raziorta logica dei dadi prepo sta da E.F, 
Gotto nei 1970 e 9 & 
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ficaio matematico tradizionale , in quan- ri*. t 


* selezione di u/ra rotazione. In questo 
caso se si specifica una determinata 
condizione, si selezionano tutte le n- 
uplc che la soddisfano. In una relaziona 
H{X i Yì un'operazwfie di selezione può 
essere eseguila aiintjuendo un panico 
lare valore a V: selezione su R(X,Y) do- 
ve yt"y1" e si potrà ottonare anche un 
insieme vuoto di fi-upde ohe soddisfa la 
condizione (Si partenza; 

» proiezione di una relazione. Vengono 
eliminati degli attribuii dalia refezione 
sopprimendo te eventuali n-uple coinci- 
denti, come si può osservare dalla rela- 
zione in figurali. 

I n essa si suppone di voler proiettare 
le relazioni su x.y, eltoiinando z, per otte- 
nere fe relazione rappresentata in figura 
12 ; 

* giunzione di due refezfanv. Si suppo- 
ne di avere due relazioni aventi uno o più 
elementi in comune, come ad esempio 
R(X,Y) e R£Y 2). L' operazione di giun- 
zione consiste net tendere te due rela- 
zioni senta Ohe venga persa alcuna 
informazione. 


Un esempio 

Mei caso della selezione dalfe 
refezione 

Rflibri.coltocaizioni) 

l'operazione conduce ad una relazione 
R(ìibu,CQU0C azioni) 

che rappresenta un scfloinsleme dell □- 
riginale, in cui ogni n-upfe. sarà formata 
da 

iXcoilocaztene)- 

Con fe proiezione, invece, dalla 
relazione 
Rtaulod, libri) 

con la sola chiave autori si genera una 
relazione 
R (autori) 

di tipo semplice che tornisce solamente 
informazioni riguardanti gli autori. 

Infine con l'operazione giunzione dal- 
le refezioni 

RI (lettorLcollocazioni) 
e R2(iibri,c0llocazionl) 
si genera Una relazione 
R(lettori, libri.collocazioni) . 


X 
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A questo punto, nell'amtHto di questo 
articolo, in cui si è cercato di spiegare 
che cosa sia e come è strutturato un 
data-base, si vuole dar# un cenno su cta 
che l'evoluzione rapidissima detta com- 
ponente comunicazione ha comportata 
sia per ohi gestisce che per chi utilizza 
l'archrvio. in origine il data-base costitui- 
va ta giumenta messo a disposizione 
degli operatori del centro di calcolo e 
veniva utilizzato dagli utenti par consul- 
tare i risultati ottenuti dalle applicazioni 
preparate dagli esperii, 

Quando si giunse all 'i ntroduzione e 
atta diffusione dei terminali, sorse anche 
la possibilità di fornire a utenti più o me- 
no remoti gli stessi servizi che si poteva- 
mo avera nel centro, e quindi si pervenne 
atta distribuzione delle funzioni in aree 
diverse sia geografrearnentoche logica- 
mente. come esempio a uffici situati in 
irroghi diversi o a gruppi di utenti con 
differenti interessi e per applicazioni 
distinte. 

Tutto questa porta quindi a una mag- 
giore autonomia del; 'utente m erario di 
effettuare scelte operative differenti. In 
quest’ottica il data-base rimane però 
centralizzalo, in quanto le informazioni 
restano sempre nello stesso luogo, an- 
che se risultano accessibili a disianze 
più o meno grandi. 

La diminuzione dei costi dell 'hardwa- 
re ha introdotto la possibilità di cedere 
ad un certo numero di mini elaboratori la 
rete di ooitiunioajjoné al fine di facilitare 
la gestione dei terminali. Come conse- 
guenza di tutto ciò si ebbe la progetta- 
zione del Data Base Distribuito, il cui 
scopo era quello di gestire una pane 
delie informazioni arrivando ad avere 
per ogni mini-elaboratore, detto anche 
personal, un ambiente di lavoro con un 
proprio data-base per svolgere fa mag- 
gior parte delle funzioni applicative 


La progettazione 

L : attività che porta alla progettazione 
di un data-base può essere strutturata in 
quattro fasi ben distinte fra loro; 
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- individuazione delle problematiche^ 

- progettazione dello schema con- 
cettuale' 

- progettazione dello schema logico; 

- progettazione delio «tana Hsìool 

Le metodologie proposte netta risolu- 
zione di guasto problema si differenzia- 
no sia per il modo con cui vengono indi- 
viduati i requisiti, tramite l'analisi dei dati 
o dei processi sui dati, che per l'approc- 
cio scolio per Individuare i dati da 
esaminare. 

Si deve osserverà che attualmente i 
data- baso sono organizzati tisicamente 
utilizzando un insieme di files con strut- 
ture che permettono l'accesso rondoni 
alle informazioni. L’utilizzo del modello 
rei azionala ha portate a sviluppane da 
pade degli studiosi- forme diverse cfi me- 
morizzazione che permettessero da una 
parte accessi più veloci alle intermazicfii 
e daU’atlra minori occupazioni relative di 
memoria. Questi tipi di strutture tìsiche 
sono; 

- files invertiti; 

- B-tnaes e B-trees. 

Il file invertito è costituito da una chia- 
ve logico-fisica che permette la ricerca 
mollo veloce bete ifilormwrioni flH'irUer- 
no dalla struttura del data-base. infatti, 
considerando una refezione cosi come 
era stata definita quando si è pariate dei 


modello relazione, un record In un Die 
invanito non corrisponde alla concezio- 
ne convenzionale di record, bensì rap- 
presenta l’insieme dei valori di un 
attributo, 

I B-trees e B-trees permettono invece 
di memorizzare le infonnreioni utilizzan- 
do la struttura ad albero binaria e multi- 
plo che consenta la ricerca motto rapida 
e non hanno difficoltà, contrariamente 
alle liste Invertite, di gestione durante 
l'aggio m amento. 

E’ molto importante osservare che la 
ricerca, di nuove strutture tisiche ottonali 
Sta perdendo terreno, in quante Torien- 
tamento attuale è rivolto alla realizzazio- 
ne di Data Base Machines, Quest'ultima 
rappresenta la soluzione in termi™ 
hardware al problema dei DBMS. 

infatti, in questo caso, un elaboratore 
,J bact>end M funge da DBMS e vane ìn- 
terfacciato con l'elaboratore centrate in 
cui risiedono programmi applicativi. 

In una configurazione di questo tipo 
ogni richiesta, anche se di tipo comples- 
so, viene inserita nel DBM che la elabo- 
ra accedendo in parallelo alle informa- 
zioni sul data-base, restituendo all'ela- 
boratore centrale solo ì dati che presen- 
tano le condizioni richieste. 

in questo campo vi sono però ancora 
dei problemi non risolti di carattere es- 
senzialmente elettronico riguardami 
l'architettura parsitela delia Data Base 
Madrine. 


infatti è proprio sul paraiieifemo efe- 
bo raiivo di questa, formalo da multp'a- 
cessori, che si basa te buona efficienza 
della macchina stessa. 

Vonei, in chiuswa di queste articola in 
cui si è cercalo di descrivere il data-base 
in maniera non certo compieta data la 
complessità dell'ergometro, esporre j 
probfefni legali airintroduziona tecnolo- 
gica di questa struttura aziendale, per 
applicazioni sìa di tipo gettonate che 
scientifico su grossi e piateli sistemi co- 
me archivio per antonomasia. 

inizialmente il data-base fu visto solo 
come una naiurale evoluzione degli 
strumenti tecnica m possesso dell'EDP, 
e questo portò a una chiusura, per molto 

tempo, in una sfera esclusivamente de- 
dicala ai soli addetti ai favorì, portando 
all 'esclusione dell'utenza ingenero. So- 
lo nel momento hn cui l'ambiente EOF te 
fatto propri i concetti evoluii dal data- 
base e sono siti risolti i problemi dette 
sua governabilità, questo strumento è 
entralo con tutti i diritti teii’organizzKrio- 
ns aziendale. 

E" questa la ragione per cui oggi sono 
sempre più frequenti i tasi nei quali si 
adottano la tecnologia dal data basa 
derivanti da considerazioni non solo tec- 
niche ma anche organizzative, con il ri- 
sultato di Sviluppare analisi rotative al 
settore interessata di conseguenza alla 
creazione di un modello per la rappre- 
sentazione della realtà ruttano del data- 
base. 
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Cominciamo la descrizione tffji 
OlMli dei sistema Sfiecrrum + kr 
terfeccia 1 . Come saprete, l'Intel- 
faccia i aggiunge (# gestisco) que- 
atl canali: i mlcrodrivea. Vintarf ac- 
ci* aeri al#, le network. Cominciamo 
eoo rana libare I mlcrodrivea. 


I microdrives 


I Canali dello 
Spectrum/u 


I comandi aggiunti e specifici per 
l mlcrodrivea sono: 

FORMAT “M"; numero; "nome": 
formati a la cartuccia nel microdrive 
indicato da mimare e la Intesta con 
nome 

€RA$E; "M"; nomerò; ■nome' 1 
cancella II file chi amato noma con- 
tenuto nel mlerodrlvB numero. 

GAT numero: moelra il catalogo 
dei programmi contenuti nei micro- 
drive numero. 

Altri comandi par I microdrives 
sono quelli già esistenti per le cas 
ostie, ma con sintassi estesa. Essi 
sono: 

SAVE * "M* 1 ; numero; " nome ": 
salva ri programma e le eventuali 
ver latri i sui microdrive nomare e 
Ciì limandoli nome 

LQAD * "M"; numero; "nome ": 
carice il programma e le eventuali 
variabili dar mlcrodrlve numero con 
nome nome 

VERIFY ' "M"; numero; “nome'*: 
Stessa tunzjone delie cassette. 

MERG-E * "M": numero; ''nome'': 
alessa 1 unzione delle cassette 

O-REN $ n; "M“; numero; 
nome": apre un canile n sta micro- 
drive numero che si chiama nome: 
se n file nome non esiste II file viene 
cristo in scrittura, se esiste viene 
aperto In lettura, 

CLQ5E # n- chiude un canale 
aperto in precedènza 

moventi TO m devia i dall 
del Canale n al canai* m 

inoltre vi sono I comandi SA VE e 
LOAD che come per la cassette 
possono caricare array di dall. Han- 
no In seguente sintassi: 

SAVE * numero,' ''nome": 
slO 

LOAD ‘ 11 M"; numero. " nome JJ ; 

atg 

M significato è: salva [carica} Tarray 
aSfi dal microdrive numero chia- 
mandolo con no/n*. 


di Damiano Bolla 


£ possibile salvare qualsiasi tipo 
di arra? sia numerico che di caratte- 
ri. 

E nal Lealmente possibile salvare 
e caricare codice macchina o dati o 
In generale zone di memoria con la 
aintasai: 

LOAD * w m M ; numero, "nome"' 
CODE n 

SAVE ‘ Li m"; numero; "nome" 

code n,m 

che significa: carica il codice 
macchine dal microdrlve numero 
con nome nome e mettilo a peri ira 
della locazione n; salva II codice 
macchina a partire da n * di lun- 
ghezza m nel microdrlve numero 
con II nome nome. 

La porta seriale 


Rsr prima cosa, quando si utilizza 
la seri sia bisogna stabilire la veloci- 
tà con la quale si vuole operare: ri- 
cordatevi che di solilo questa a la 
maggior tonte di errori. Par iettare 
il beudrare bisogna scrivere 
FORMAT “B' 1 ; numero. Numero 
pud avere uno dei seguami valori: 
M, 110. 300, 600, 1200. 2*00, 4BQ0, 
9$00. 10200; la fuud rare specifica- 
le per li modo B vale anche per il 
modo T. e viceversa 
Generalmente con la seriale si 
utilizzano i comandi OPEN a GLO- 
BE. perù vi sono due modi di funzio- 
namento dagli stessi, appunto il 
modo 'B' & il modo J T. 

li mode 0 consente di spedire m 
uscita qualsiasi valore compreso 
fra 0 e 255 e questo * 11 modo gene- 
rai menta più usato. 

I modo r r Invece consente di tra- 
sformare l token detto Speci rum in 


caratteri ASCII, Che sono st impaci- 
li dalla printer. 

Per esemplo, se volile at ampere 
10 REM ciao da dami ano 
se digitate 
OPEN* 4: "B" 

e poi date LIST *, non vadale 
niente II fatto è che mancano alla 
stampante 1 codici 13 e 10. rispefii- 
v Amente di slampe e di avanzamen- 
to tinse: provate a spedirli scriven- 
do 

PRINTSM; CHR$ 13; CHRS IO; 

A questo punto avrete visto II vo- 
stro listato su carte, con una picco- 
la differenza: dov è la REM? Esegui- 
ta un ressi, ridigltaie la linea di pro- 
gramma a scrivete 
OPEN#3; T- LIST 3 
Tutto OK? Avrete capilo la diffe- 
renza tra II modo 'b' sii modo T; la 
cosa carina é che si possono aprire 
In contemporanea, su due canali di- 
versi, cioè; 

OPEN# 3; T‘: OPEN VfT 
in quatto modo po tè? e lisi are f 
programmi sui canale 3 e mandare 
codici di controllo sul canale * Per 
esempio al pud medare il codice 12 
(Il salto pàgina nelle Epson e com- 
patibili) In queslo modo: 

RftINT# 4; GHRJ 12; 

E cosi poss-ibile attivare d modo 
grafico e tutte le altra opponi che la 
stampante possiede. Se avete più 
numeri de spedire, nessun proble- 
ma; per esempio la graiica si attiva 
cosi (sempre Epson A C,}: 

PR1NT#4; CHFS 27; CHRS 7&; 
CHRS. n; CHRS m; 

dove n e m tono due numeri op- 
portuni. 51 pud anche fere 
LEI al = CHRS 2? 4- "K" + 
CHRSn + CHRSm: PRlNTàM; aS 
(Il cod. ASCII di “K" è 75| 
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L* lino* seriale «tallo Specirum 
putì ««re usata par col rag arsi con 
un modem,, ma è necessario un p ru- 

gramma la linguaggio macchina, 
pwchà 11 baile* tomo e perde carat- 
teri Se H comando etra viene ut 11 li- 
zelo io prevalenza * OPEN non bi so- 
gne scordar# etra el pud salvare e 
caricare de seriale con la si ni assi- 
LOAD " W' - 

save ■* , r^ 

La network 

Passiamo alle network, che putì 
essere considerai# una aeri eie un 
po' parti™! are. 

P9T prima cesa dovete filabili'* 
ctre numero di stazione volete esse- 
re voi. e P#r fare questo digitate 
FORMAT ht": numero 
dove numero 6 il numero di sta* 
rione prescelto. Aveie ora a disposi- 
none il comando OPEN ulterior- 
mente modi Desto 
QPEN-#n; "n"j numero 
Questo significa eh* volete apri- 
re un cenale n verso la stazione nv 
mero, Ovviamente avrete poi a di- 
sposizione tutta li possibilità che 
un ceneie vi putì dare Potete salvar 
re. cane are. variti cere: 

SAVE "‘tT: num 
LOAD "‘N "; num 
VERIFY * “IT; num 
Dove num è la stazione con la 
quale volete comunicare. Se num 
vele 0, le com imitazioni saranno di 
tipo generale, do* trasmettiti o ri- 
cevete com unto#zionl afda tulli ► 
calcolatori collegati 


Continuando... 

L' interfaccia i possiede doti “na- 
scoste" che si lasciano scoprire 
senza troppe difficoltà H segreto 
sia tulio nel saper utilizzar* bene I 
comandi OPEN e specialmente MO- 
VE. 

Il comando OPEN si occupa di 
col legare un canale fisico con un 
canale logico e lo fa In maniera mot- 
to poterne Se per esemplo avete 
costruito un programma che chiede 
lutti | sudi INPUT dal canale i, cioè 
INPUT# 4: ai 
per esempio potei* digitar* 
OPEN #4, u k" 


# il programma leggerà I suoi bari 
da tastiera, oppure 
OPEN #4; “b" 

e il programma cercherà i suoi 
dati dall# linea seriale, o ancora 
OPEN *£4; "m": V. “fi ledi dati 1 ' 

Qui i dati sono aerini in un m* 
creato in precedenza; ma non 6 fini- 
ta: 

OPEN V 4; H n"l 10 
Ore i dati vengono chiesti atto 
Spectrum che ha 10 coma numero 
di stazione della network 
Come potei* vedere c * di che di 
venirsi; io stesso discorso ai putì ti- 
ra par I dati in uscita. Se, per esem- 
pio, »v#le un programma database 
aerino in basic # alcuni amici oh* 
hanno il sistema Speci rum, polsi e 
divertirvi a epilogare gli Spectrum 
tra di foro in modo che lavorino co- 
me del terminali: la cobi funziona 
anche tra II QL h lo Spectrum. 

il comando MOVE servo por diri- 
gete un (lusso dall da una pana 
all'aura. Potete (posteri un (Ile di 
dati dai mlcrodrive alla seriale op- 
pure allo schermo o viceversa: ec- 
covi alcuni «empi- Creai* un Di# 
che contenga un programma qual- 
siasi: 

QPEN4F 4; ■■ m ” : 1: " FU «H prova 
LIST # 4; CLQSE # 4 
a queste punto 

open #i. “m"; 1; É TH*dJ pravi 
OPEN ir 5; "T 

e infine 

MOVE# 4 IO# 5 
Vedreste come il DI* precedente- 
mente creato vada a Unire sulla 
stampante. Provate ancora, dopo 
aver chiuso « riaperte u canale 4 
MQVEtt 4TO#2 
il Die or# scorre sulla schermo. 
Provale 

MOVEttO IO# 2 
Scrivete qualcosa, non disperate- 
vi se non riuscite a uscire con 
BREAK i aspel i ai * quando il compu- 
ter vi chieder* scroti). 

Se digitate OPEN #2; *T' e avete 
fa stampante collegi! ■, qualsiasi 
cose venga aerina sdì video sarà 
spedita alta stampante, 

Per leggere da un DI* vi sono di- 
versi modi: il più utili * fora* qufr 
sto; 

*$ = inkeyi# n 

dove fi 6 I file ih questione; in 
questo modo leggete prati cementa 


qua! arasi cosa vi sia nel file, Lm al- 
tre mode à quello di utilizzata 
INPUT# n: *S 
oppure 
INPUT #n: • 

Il primo caso se volete leggere 
una stringa, ti secondo per leggete 
un numero. 

Da notate che questa sintassi e 
indi pendoni# da cri* cose sia colle- 
gati al canale specificato, microdri- 
yb. seriale o network A questo pun- 
to entriamo un po' piu nel dettaglia 
peli' interi accia i, Poiché delle va- 
riabili di sistema abbiamo già parla- 
lo (vedi se n. 12 pag. 45), vediamo 
Ora come vengono gestite le varie 
perif arieti* Ih memori*. 

Se avete seguite le puntata 
sull'accesso fandom al mlcrodrlves 
avete visto eh* si faceva nf amman- 
to a una label la che veniva croata 
quando si apriva un file su mlcrodri- 
v*. eccovala qui di seguito per Inte- 
ro, 

Lunghezza massima 595 bytes. 
Indirizzo di partenze nel regi Siro IX 
p*i processor*, il numero indice il 
pyle progressivo, 

0 Indirizzo 8 
2 indirizzo B 

4 "M* h 

5 Indirizzo delle subrouilrtaa di 
output nella ROM. 

7 indirizzo dello *ibroutiri« di in- 
put della ROM 
9 Indirizzo 595 

il ChSYTE Coniatore 0*1 byte 
corrente. 

13 CHREC Contatore del record 
ccrrente- 

14 CHNAME Noma del file 

ZA CHFLAG Flap di Stato 
255 = scrittura , 254 = lettura 
25 CHDfllV Numero del microdri- 
va 0-7 

25 CMMAP Indirizza delle mappe 
del microdrlvfl corrente 
2fl chmap Primi 12 byte* deiTin- 
1 est azione. 

40 HDFLAG Byte di flag 

41 hDNUMB Numero di settore 
utilizzato 

44 HDNAME Nome dell* cartuc- 
cia. 

54 HDCHK Byte di cheeksum. 

55 Primi 12 bytes del blocco 

dati. 

07 RECFLG Byt# di Hag 2 = EOF 
Qc normale 
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&9 RECNCJM Numero di questo 
record 

69 RECLEN Numero di bytes di 
datP di questo record. 

71 REGNA M Nome dei ti le 

81 DESQHK Checksum degli ulli- 
mi 14 bytes 

02 ONDATA Inizio buffet di 512 
bytes. 

5N DCHK Checksum degli ultimi 
512 bytes. 

Questa è la confi guraz ione che 
assume la memoria interessata per 
ogni canate dei microdrives aperto. 


Vediamo invece la tonfi frazio- 
ne del canale detta network- 
lunghezza dell’area interessata 
276 bytes. 

0 Indirizzo 8 

2 indirizzo 8 

4 "IN” 

5 Indirlo della subro utine di 
Output nella ROM 

7 Indirizzo della subroutine di in- 
put nella ROM 

9 indirizzo 276 

11 NOI RI S Numaro della stazione 
di desilnazione- 

12 INCSELF Numero dì stazione 


df questo Speclrum 

13 NCNUMB Numero di blocco 

15 NOTVPE Flag; 0= blocco dati, 
1 = blocco di EOF 

16 NCOfiL Numero di bytes dei 
biocca dati- 

17 NCDCS Checksum del dati. 

18 NCH0& Cheeksum del l'inte- 
stazione. 

19 NCCUR Contatele dei byte 
corrente- 

M NCIBL Numero di bytes conte- 
nuti nel buffer di Input 

21 NOS Ini zio del buttar di 255 by- 
tes 


SIM Hi-Fi Ives 1985 


Dal 5 al 9 settembre alla Fiera 
di Milano si è tenuto l'annuale 
SIM HI-FI Ives, manifestazione 
dedicata soprattutto all'alta fe- 
deltà e a tutto ciò che produce 
ed elabora suoni ma con ampi 
Spari per altre applicazioni elet- 
troniche affini videoregistrazio- 
ne % computer. 

Tra le altre iniziative, presse il 
SIM 0 svolta una gara di video- 
giochi (da bar) a livello naziona- 
le, i oui vincitori formeranno la 
rappresentativa italiana a un 
prossimo campionato mondiale. 

Gran folla quindi, intorno ai vi- 
deogames come a tutto il resto, 
don la consueta caccia al de- 
pliant e ai l'adesivo. In prima li- 
nea, sul fronte dei computer, sta- 
vano gli MSX, abbastanza ovvia- 
mente, poiché sono soprattutto 
giapponesi e prodotti da marchi 
di solida tradizione nel settore 
delf'Hi-FI. 

Le Sinclair era presente in vari 
padiglioni; Particolarmente in vi- 
sta atta Saody, che presentava 
un esemplare delFauio elellrlca 
C6 e il televisore laccatale, atte- 
so da tempo, oltre a tastiere pro- 
fessionali e software a prezzi 
stracciati. 

Cera, ovviamente, il QL, equi- 


paggiato con ottimi floppy, inter- 
facciali Con una scheda firmata 
Sandy. Caratteristiche principa- 
li: dischi da 3-5", sfim-line H 72tOk 
Formattali, velocità di trasferi- 
mento 250000 bltfsec, con tempi 
di accesso e affidati liti, ai primi 
assaggi, veramente buoni. An- 
che il prezzo è decisamente com- 
petitivo: intórno alle 800.000 lire, 
IVA compresa. 

L'interfaccia può Inoltre sup- 
portare altri drìves, fino a 4 com- 
plessivi, p>er un letale di 2.98 Me* 
gabytes. Il software di gestione à 
molto completo, e comprende 
l'accesso random ai fiies e una 
pane de! Tool- Kit della Binclair- 
QJUMP, il tutto trasferito su 
ROM. quindi molto pratico e im- 
mediatamente accessibile da 
basic. 

L'importatore era ancb’e&so 
presente con alcuni esemplari di 
Spectrum Plus e QL lasciati in 
balia della lolla, che li maltratta- 
va abbondantemente, per lo più 
ignara che il QL era un 75, Ea 
nuova versione con basic e 
QDOS estesi, alla sua prima ap- 
parizione in Italia. 

La commercializzazione della 
macoli na dotata dì questa nuo- 
va ROM dovrebbe iniziare in bre- 


ve tempo (I ben noti problemi di 
smaltimento deli e scorte}. La ca- 
ratteristica più Interessante, del 
punto di vista tecnico, è la ga- 
si ione degli errori, pressoché 
inesistente nelle versioni preoe^ 
denti, ma quello Che probabil- 
mente attirerà di più i potenziali 
acquirenti sarà il drastico taglio 
al prezzo (50%) operato dalla 
Sinclair per cercare di uscire da 
una situazione finanziarie 
molto,., delicata. 

La GBQ presentava tl Milcro 
Peripherals, urt floppy-disk drive 
diverso da quello della Sandy, 
ma con questo per fai lamento 
compatibile e altrettanto valido 
qualitativamente. 

Buone notizie anche per quan- 
to riguarda fi software: il catalo- 
go relativo aJ QL si arricchisce 
coni I ncarnente di nuovi titoli , 
non soltanto di programmi pro- 
fessionali ma anche ercades e 
adventures. E i distributori co- 
minciano finalmente a capire 
Che per tenere vivo 11 mercato oc- 
corre una politica di prezzi con- 
tenuti, ma anche sollecitudine 
nel rifornirsi di novità; dovendo 
aspettare mesi un programma 
presentato sulle riviste inglesi, è 
pressoché naturale eh a si cer- 
chino vie alternativo. 
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window/n 


La proposta di realizzare un pro- 
gramma per 11 corti noi lo di finestre 
vld» sullo Spectrum te avuto un 
Imprevisto successo, e abbiamo ri- 
cevuto numerose realizzazioni,, sia 
In basic che In linguaggio macchi- 
na. 

Abbiamo .perciò Peci» di pubbli- 
carne ancora due, contrari amante 
alle consuetudini, popo II software 
Pi S, 2enPrini apparso sullo scorso 
numero; una citazione di merito an- 
che per V, Mazzétta. ed E, Scrcfnelll. 
autori dt Implementazioni più che 
valide, che non pubblichiamo solo 
perche cinque versioni dello stesso 
programma seno deeisamsnte trop- 
pe, 

E arriviamo final manta ai lavori 
migliori. Inviatici da B Zemengo e 
C. Pancino, total mante differenti ira 
di loro, ma entrambi altamente ai- 
unificativi nel loro particolare cam- 
po. 

Il programma di B. Zamsngo è In- 
tani costituito da una efficientissi- 
ma routine in linguaggio macchina, 
che viene usata molto semplice- 
mente POKANDQ I valori significa- 
tivi fri chiesti via INPUT) e chiaman- 
do ta routine con una RAND USR: 
l'Interfaccia utente è quindi ridotte 
al minimo Indispensabile, ed è la- 
sciata alla fantasia e alle necessitò 
dall'Olente, ma la routine è spetta- 
polarmente veloce. 

G- Pacino ha Invece Inviato un. 
programma interamente scritto in 
basic: molto più lento del preceden- 
te per quanto riguarda il trasferì- 
mento delle finestra vero e proprio, 
ma con un'interfaccia utente (cioè il 
modo più o meno facile con cui 
l'utente finale al trova a operare) va- 
ramente eccezionale quanto a faci- 
litò e immediatezza d'uso. 

Il consiglio che diamo è natural- 
mente quello di integrare I due pro- 
grammi, sostituendo le linee dei 
programma di Pancino che realizza- 
no il trasfer imento con ta chiamata 
alia routine Ih Ung. macchina 
dell'altro, per guadagnare in veloci- 
tà mantenendo I vani aggi di un pro- 
gramma sofisticato come quello In 
basic di Claudio Pancino, 

Per completezza li pubblichiamo 
Integralmente, segnalandovi solo 
che nel programma di Pancino le Ih 


nee che si occupano del trasferi- 
mento sono quelle da 3600 a 3820, 
per quanto riguarda II trasferimento 
da video a PAM, e da 3920 a *660 
per II trasferimento da RAM a video 
(In realtà, per quest 'ultimo trasferi- 
mento le Unse che operano mete- 
ri almente li tris ferimento sono 
quelle da 4500 In poi, ma prima c'è 
tutta la preparazione dai parametri 
necessari all 'operazione). 

Il primo 


di B. Ramengo 

il Datato 1 è II programma basic 
utilizzato per caricare II codice In 
memoria ad eseguire un test della 
routine, tramite fa stampa di una 
scritte ("prova") incorniciate, che 
costituisce la finestra da trasferire: 
premendo un tasto qualunque ven- 
gono richiesti E nuovi parametri (li- 
nea e colonna) dalla posizione dello 
schermo a cui va trasferite ie fine- 
stra (che è statò salvata preceden- 
? a mante in RAM). Terminato II test 
si possono cancellare fs unse da 25 
a 43, che disegnano la scritta di pro- 
va, mentre I parametri usati dalla 
routine per funzionare sono conte- 
nuti nelle locazioni: 

67344-57345: (linea 50} contengo- 
no Il valore 57790 che rappresenta 
l'Indirizzo a partire dal quale va me- 
morizzata la finestra prescelta. 

57343: (linea 50) contiene ii nume- 
ro di riga dei carattere in allo a sini- 
stra della finestra. 


57347; (linea 70) contiene il nume- 
ro di colonna del carattere nell'an- 
golo In alto a sinistra della flnestra. 

57346: (linea 60) contiene il nume- 
ro di righe corrispondente all 'altez- 
za della finèstra, 

57349: (linea 90} contiene 11 nume- 
ro di colonna corrispondente alla 
larghezza dalla finestra. 

Il trasferimento (o salvataggio) 
dalla finestra dalla schermo alla 
memoria (a partire dall'indirizzo 
57790) avviene con la chiamata 
RAND USR 57359, naturalmente do- 
po aver Ini zi all zzato le locazioni di 
memoria sopra riportala con I valori 
desiderati. Dopo avere stabilito in 
quale posizione dello schermo va 
sposi sta la finestra salvata, con 
dalie POKE al soliti valori 57346 e 
57347, il trasferimento dalla RAM 
allo achermo si ottiene con Fa chia- 
mata RAND USR 577137. 


Il secondo 


di C. Pancino 

Questo programma basic con- 
sente di scagliare tra 2 opzioni di la- 
voro: la prima permette di operare 
su una sola Immagine dalia quale ri- 
cavare una sola finestra, la secon- 
da consente di ricavare due finestre 
da una oppure due immagini origi- 
nali. 

In entrambe le opzioni, per sele- 
zionar» una finestra è sufficiente 
spostare delle Unse orizzontali e 
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Astrolabio 

di Fabio GailerinL 


verticali, eh* rappresentano I con- 
torni dalia finestra (alto, basso, sini- 
stro, destro); le linee vengono spo- 
stale mediante I soliti tasti con la 
frecce, mentre se spostandosi sci 
disegno con le linee si venissero a 
mediti tare i colori dal Tinelli ostro 
dei disserto potremo ripristinarli 
con II comando (ink); agni fase 
di definizione delie righe è chiusa 
con II tornando Affine!, che ripor- 
ta l'utente nello sialo di attesa co- 
mandi, segnalato con un BEEP 
La fase di definizione della fine- 
stra è chiusa coi comando “c" (co- 
pia), che opera l'effettiva copia del- 
la finestra in RAM. 

il programma e le sue opzioni so- 
no molto semplici da usare, essen- 
do anche formio di Commenti e 
spiegazioni M in linea”: cosi la proce- 
dure di rJlocaiione suino schermo 
deli 'immagine sono motto semplici, 
visualizzando lo spazio occupabile 
dalla finestra sullo schermo e con- 
sentendone io spostamenlo con ! 
tasti delie frecce: Il comando 'V 
stamperà la finestra sul video, alla 
posizione indicata, mentre nel caso 
si fossero salvate 2 finestre in me- 
moria si potrà procedere alla ri loca- 
zione delia seconda, sempre con la 
prima fissa sullo schermo. 

Altri comandi consentono II sal- 
vataggio su nastro dall'Immagine 
video elaborata, la ri locazione delle 
finestre |se non ai è ottenuto un ef- 
fetto gradito) e fa modi fica degli at- 
tribuii. 



Un astrolabio è un particolare 
strumento, attraverso il quale è pos- 
sibile avere una rappresentazione 
del cièlo e delie sue costellazioni In 
un particolare periodo; normalmen- 
te è costituito da due dischétti di 
carta sovrapposti che danno 
un’Idea abbastanza approssimativa 
della volta celeste. 

Ora Invece, coi programma che 
pubblichiamo, potremo avere l'Im- 
magine precisa dal cielo, rigorosa- 
mente valida In ogni orario par la zo- 
na da cui osserviamo, dando modo 
agli appassionati di avere riferimen- 
ti esatti e al profani di acquisire fa- 
miliarità con le stette, eia con l'os- 
servazione diretta guidata dal com- 
puter (verificando cioè all'esterno) 
sta con l'apprendimento a tavolino, 
comodo anche perchè pud asse-re 
effettualo con qualsiasi condizione 
meteorologica... 

L'uso del programma è sempli- 
cissimo; prima di farlo girare occor- 
re perd fornire allo Speclrum la po- 
sizione geografica da cui osservia- 
mo, assegnando alle variabili LT (la- 
titudine) e LN (longitudine) i valori 
opportuni, secondo le coordinate 
del nostro paesello, deducibili da 
qualsiasi carta geografica, sebbene 
con un certo margine di errore: con 
una carta topografica ricaverete i 
dall con la massima precisione. 

La variabile RUBO (stessa riga) si 
riferisce al fuso orarlo e vale uno 
per l’Italia; se contate di osservare 
Il cielo dalle montagne della Cocin- 
cina O del Perù modificatela oppor- 
tunamente. 


Funzionamento del programmar 
vengono richiesti ir input la data è 
l'ora deli' ’onervaoJona, quindi viene 
disegnata la mappa del cielo, co- 
stellazione per costellazione (ogni 
volta viene Indicata in basso quale 
si sta disegnando); durante questa 
fase è possibile, premendo un tasto 
qualsiasi, Interrompere l'esecuzio- 
ne dal programma per tutto il tempo 
in cui sarà tenuto premuto il tasto, 
permettendoci cosi di contemplare 
con più calma la volta celeste. 

Le stel le sono di splendore varia- 
bile a seconda del la toro lucentezza 
reale, e sono comprese in un cer- 
chio, che rappresenta l'orizzonte 
terrestre, con II NORD in alto, l'EST 
a destra e cosi via; lo ZENIT (cioè II 
punto del cielo esattamente sopra 
la nostra testa) è al centro del cer- 
chio, 

A questo punto possiamo fare tre 
cose: 

1) COP'Y del video su stampante; 

2) cambiamento di era efo data 
per una nuova mappa. 

3) ingrandimento di una zona del- 
la mappa attuale. 

Ouesta e una delle caratteristi- 
che più Interessanti del program- 
ma: per ottenere l'ingrandimento bi- 
sogna specificare II fattore di In- 
grandimento Ida 1 in su) e it punto 
che dovrà essere al centro della zo- 
na da ingrandire. Per fare clà dovre- 
mo Inserire le coordinate, e potre- 
mo tarlo in uno qualsiasi del sitami 
di coordinate riconosciute dal pro- 
gramma: 

le coordinate aStazimutai). che In- 
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dMduano un putito dei Cleto sempli- 
cemente tramite Ja sua ALTEZZA In 
gradi suM'ortzzonle, (da 0 a 90} a al 
suo AZIMUT, cioè l'angolo tra la di- 
rezione NORD, che ha azimut zero, 
e II punto In esame, girando verso 
est (l'azimut è l'angolo leggibile sul- 
la bussola); 

o le coordinate equa feria//, più 
difficili da E rattaree quindi più dedi- 
cate ai voti appassionali, per le qua- 
li vi rimandiamo a un manuale di 
astronomia. 

Per quanto riguarda II listato, c'è 
poco da dire perchè è molto ben 
strutturato e autoespllcatlvo, È pos- 
ai bile Inserire altre costellazioni ol- 
tre quelle disponibili (circa 30) so- 
sapendo li 1000 dell'ultimo DATA 
riferito alle costei Fazioni (linea 
1350} con 225, Inserendo 11 nome 
della costèi I azione, le 5 coordinate 
aqi istoriati per ogni stella, e chiu- 
dendo l'ultimo DATA Inserito con 
un 1QTO, 


Simon 


di Alessandro Pardi 


Credei e di avere buona memoria 
visiva e auditiva? Anche del buoni 
riflessi? Sicuramente allora o siete 
una rarità o con avete mai giocato a 
Simon. 

Per ohi, beato lui, non avesse mai 
sentito nominare questo perfido 
gioco, praticabile solitari amente o 
in gruppo, ricordiamo le elementa- 
rissime regole: ci sono quattro set- 
tori colorali diversamente, che il 
computer "accende" (facendoli bril- 
lare] secondo sequenze causali, a 
ogni settore è assodato un beep Ci 
diversa tonalità, ed è parimenti as- 
sociato un tasto. 


Premendo nel giusto ordine i ta- 
sti dovete ripetere esattamente la 
sequenza che vi è stala proposta, e 
che si allunga ogni volta di una nota 
(e di un lampeggio colorato). 

Più sequenze riuscite a ripetere 
esattamente, più aumenta la veloci- 
tà dì esecuzione; i tre livelli di diffi- 
coltà riguardano anch’essl variazio- 
ni di velocità a durata del haep- 

La vittoria, assai improbabile, si 
trova oltre la cinquantesima man- 
etta. 

Il programma contiene una breve 
routine in linguaggio macchina, par 
un'efficace accensione e spegni- 
mento dei settori colorati. 


Slot 

machine 

di Paolo De Rosa 


li programma è realizzato in due 
parti, per poter girare anche sui 16k 
La prima parte riguarda la urali- 
ca: dopo averla battuta, salvatela 
sui nastro, date RUN (vengono defi- 
niti gli UDG) e quindi NEW. 

Ora digitate ia seconda parte, 
senza alterare i numeri di linea (su 
di ossi è basato il sistema di proba- 
bilità di uscita di un simbolo piutto- 
sto che di un altro). 

Il risultato è apprezzabile, consi- 
derato che II programma è lutto In 
basic. 

Se non vi interessano nemmeno 
le vere slot-machine, lasciate perde- 
re questo programma; sé Invece sie- 
te un incallito giocatore, potreste 
raggiungere lo stato di inebeii men- 
to estatico-ennoiatc caraneristico 
degli slol-di pendenti. Peccato solo 
allo Speci rum manchi la fessura 
par la monetina. 



| 
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Accordi per 
la chitarra 

di Mario Donati 


Un programma didattico cosimi' 
lo su un'Idea decisamente buona, a 
abbastanza ben realizzato. 

L'idea è quella di usare lo Spec- 
irum come “istruttore ausiliario" 
per l'apprendimento della chitarra: 
■E maestro in cerne e ossa non è 
sempre a disposizione, tanlomeno 
gratis... ecco perciò il fido computer 
Che Or offre un divertente modo di ri- 
passare gli accordi. 

li menu principale ha 5 opzioni: 

1 - istruzioni per l’uso dei pro- 
gramma: 

2 - giri armonici; scegliete il 
"giro" che interessa tra quelli elen- 
cati, e vi viene mostrata la sequen- 
za di accordi che io compongono, 


disegnando sullo schermo la sezio- 
ne di tastiera con l'esatte posizione 
delle dita: 

3 - accordatura: una serie di istru- 
zioni visive e sonore per dare una re- 
gistrata alla vostra Fender: 

4 - preparazione: qualche chiari- 
ritento eu coma Interpolare la ta- 
stiera disegnata Sul video senza 
slogarsi le dita; 

5 - accordi: il programma memo- 
rizza circa 90 accordi, sufflclenli 
per serviziare le orecchie dei vostri 
conviventi nella maggior parte delle 
situazioni: quando li saprete perfet- 
tamente a memoria, potrete sempre 
espandere il programma con altri 
accordi o altre opzioni. 


CENTRO 2 


ASSISTENZA HARDWARE 
V. FRA CRISTOFORO, 2 - 20142 MILANO - (02) 8434368 



CENTRO ASSISTENZA 
AUTORIZZATO 

5ii~iE=laii- 

MICROCOMPUTER 




window/n 


S REM 

* * 

* di BENIAMINO ZAMENGG * 

* Via G, Mazzini 2 * 

* -30030 Salzano £VE> * 

* * 
HMHHHHH*# *#*****#+-i-***+* * ** 

10 REM 

TRASFERIMENTO E RITORNO 
15 CLEAR 57343 
20 00 SUB 9000 

25 PRINT AT 9,5?“ ■*" 

30 PRINT AT 10,5;"* # 

" ; AT 11,5;'* 4" ; AT 12,5 

» J1 # 

35 PRINT AT 12,5}"— — 

30 PLOT 51, 96 : ; DRAM 8,0: DRA 
W 0,-0: DRAW -8,0; PLOT 51,96; D 
RAW 0 —16 

40 PLOT 67,80; DRAW 0,16; DRAW 
S,0; DRAW 0,-8: DRAW -0,0; DRAW 
0 — S 

41 PLOT 03,80; DRAW 0,16: DRAW 
8,0; DRAW 0,-16: DRAW -8,0 

42 PLOT 99,96: DRAW 4,-16: DRA 
W 4,16 

43 PLOT 115,00: DRAW 0,16; DRA 
W 8,0: DRAW 0,-16; PLOT 116,00: 
DRAW 7,0 

50 POKE 57345, INT ( 57790 / 256 >: 
POKE 57344, < 57790-236*PEEK 5734 
5>: REM DESTINAZIONE 

Ó0 POKE 57346,9: REM RIGA 

70 POKE 57347,5; REM COLONNA 

80 POKE 57340,4: REM NUM. RIGHE 

90 POKE 57349,12: REM NUM . COLO 

NNE 

100 RANDOMIZE USR 57359: REM 
ROUTINE VIDEO -> RAM 

110 PRINT #1 ; "PREMI UN TASTO PE 
R CONTINUARE": PAUSE 0 
120 POKE 57345, INT £57790/2561: 
POKE 57344, < 57790^2S6*PEEK 5734 
5) *. REM INDIRIZZO INIZIALE DEL B 
LGCCQ 

130 INPUT "NUOVA RIGA - ";V; IF 
v > < 22-PEEK 57348 > THEN BEEP .2 
3,23: PRINT #H;AT 0,0; " troppo in 
basso, premi un tasto"': PAUSE 0; 
INPUT 60 TO 130 

140 POKE 57346, V 
150 INPUT INVERSE 1 ; "NUOVA COL 
ONNA = " ; V: IF v> (32-PEEK 573491 
THEN BEEP .22,22: PRINT #1;AT 
1 , 0; "troppo a destra. premi un ta 
sto" : PAUSE 0: INPUT : CO TO 1 


50 

160 POKE 57347, V 
170 CLS 

180 RANDOMIZE USR 57707: REM 
ROUTINE RAM -> VIDEO 

190 60 TO 130 

9000 LET +=57359: LEI t=57789: F 
OR n=f TO t: READ x: POKE n,*: N 
EXT n; RETURN 

9001 DATA 195,233,224,059,002,22 

4.254.008 

9002 DATA 048,004,014,000,024,01 
4,254,016 

9003 DATA 048,006,214,008,014,00 
1 , 024 * 004 

9004 DATA 014,002,214,016,050,00 
6,224,071 

9005 DATA 167,062,000,040,004,19 
B , 032 ,016 

9006 DATA 252,033,003,224,134,09 

5 . 322 . 000 

9007 DATA 033 , 000 ,064, 025 ,121,16 

7.040.009 

900B DATA 017,000,008,061,040.00 
1 ,025,025 

9009 DATA 034,007,224,033,000,00 
0 , 058 , 002 

9010 DATA 224,167,040,007,071,01 

7.032.000 

9011 DATA 025,016,253,017,000,08 

8.025.237 

9012 DATA 075,003,224,006,000,00 

9 . 034 . 009 

90 1 3 DATA 224 , B22 ,001, 237 , 075 , 00 
4,224,033 

9014 DATA 006 , 224,070, 033 ,@11, 22 

4 . 062 . 008 

9015 DATA 144,185,043,011,119,02 
0,035,006 

9016 DATA 000*237,060,129,079,02 
4,239,113 

9017 DATA 122,050 ,014, 224 , 201 , 03 
3,002*224 

9018 DATA 237,091,000*224,001,01 
3,000*237 

9019 DATA 176,237,083,000,224*20 
1,197,070 

9020 DATA 229 ,197,221, 229 , 253 , 22 
5 , @06 , 008 

9021 DATA 197,253,229,225,237,07 
5,005,224 

9022 DATA 006 , 000 , 237 ,176,001 , 00 
0,001,253 

9023 DATA 009,193,016,236,014,03 

2.221. 009 

9024 DATA 193,016*222,001,000,00 

7.221.009 

9025 DATA 225,035,193,016.209*20 

1.197.237 

9026 DATA 075,005,224,006,000*23 
7,176,314 

9027 DATA 032,221,009,221,229*22 
5,193*016 
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9028 DATA 
5 , 148, 224 

9029 DATA 
0,237,091 

9030 DATA 
1,042,007 

9031 DATA 
5 , 003 , Z24 

9032 DATA 
1,042*009 

9033 DATA 
2 , 000 - 224 

9034 DATA 
1 ,011,000 

9035 DATA 
0 , 000 , 253 

9036 DATA 
5 , 006 , 00 B 

9037 DATA 
5,005,224 

9038 DATA 
0,001 f 253 

9039 DATA 
2,221, 0B9 

9040 DATA 
7*221, 009 

9041 DATA 
6,204,201 

9042 DATA 
6,000,237 

9043 DATA 
1 , 229 , 209 

9044 DATA 
0,224,070 

9045 DATA 
3,035,070 

9046 DATA 
5 , 205 , 020 

9047 DATA 
4,035,035 
9049 DATA 
6,050,005 

9049 DATA 
0 , 224 ,017 

9050 DATA 
4,071 ,014 

9051 DATA 
3*033*011 

9052 DATA 
5,003-224 

9053 DATA 
4,221, 042 

9054 DATA 
t , 000,000 


237 , 201 , 205 , 018,224 , 20 
058 ,014* 224 , 07 1 ,014 , 00 
000 , 224,033*011, 224 , 22 

224 . 205 .165.224. 237 . 07 

014. 000 . 042.009. 224.22 
224*205,213,224,201 ,04 

035.035 . 017.004 . 224 . 00 
237,176,201*197,253,07 
229 ,197,221, 229 , 253 * 22 

197 . 253 . 229 . 209.237 . 07 

006 . 000 . 237 .176.001.00 
009,193,016,236,014,03 

1 93 . 016.222 . 001 . 000 . 00 

253 . 225 . 253 . 035. 1 93.0 1 

1 97.237 . 075.005 . 224 . 00 
176,014 , 032,221 , 009 , 22 

193.016. 237 . 201 . 042 . 00 
058 , 002 , 224 *184, 032 , 0 1 
B5B , 003 , 224 ,184, 032 , 00 

225 . 024 . 024 . 042 . 000 . 22 
1 26 , 050 , 004 , 224 ,035 , 1 2 

224 . 205 . 018.224 . 042 . 00 

013 . 000 . 025 , 058 ,014,22 
@00,221 ,042*007,224,25 
224 , 205 , 034,225 , 237 , @7 

014. 000 . 237*091 , 009 , 22 
009 , 224 , 205 * 087 , 225 , 20 


1 REM 

FINESTRA SUI. DISPLAY 
di PANCINO Claudio L. 

(cl 1985 

2 BQRDER 1* PAPER ls INK 7: C 
LS ; POKE 23609,50: POKE 23658,0 
: LET D =506 24; LET P^D: LET V$^“ 


3 DIM X ( 4) ; DIM Y14); DIM R(4 
1; DIM SM): DIM W<5> 

9 REM Fremesse con opzioni 
10 PRINT AT 1,7$ PAPER 2; "FINE 
STRA SUL DISPLAY"; INVERSE 1 J AT 
4,0i “OPZIONI : “ 

15 PRINT AT 6,0; FLASH l;"l J, p 
FLASH 0; " . Caricamento di un'iinin 
agi ne video completa da cas 

setta Ri arrangi amento di un 

a fine- atra da detta immagini 

e e Co- pia in Ram. 

Possibilità' di copia 
della finestra su cassetta” 


20 PRINT FLASH Ì? J '2 U ; FLASH 0 
Ri arrangi amento di due di ver 
se finestre da una o due di- 
stinte immagini vìdeo e copi 
e in RAM. 

Possibilità' di ri locazione 
per entrambe le finestre sul 
- lo schermo e copia dell 'imma 
gine globale su cassetta" 

25 IF INKEYJ^-l” THEN LET fc> 1 
; 60 TO 40 

38 IF 3NK£Y*=”2 H THEN LET K=2 
; SO TO 40 
35 GD TO 25 
40 CLS : LET flagra 
45 REM Diagramma a blocchi per 
le istruzioni 

50 PRINT AT 1,7; PAPER 2; 'FINE 
STRA SUL DISPLAY" 

60 PLOT 48,175: DRAW 176,0; DR 
AW 0,-24: DRAW -176,8; DRAW 0,23 
70 PRINT AT 5,0; "PER MUOVERE L 
8 LINEE ORIZZONTALA VERTICALI S 
EGUIRE LE INDICA- 7 IGNI DEL SÉG 
UENTE SCHEMA: 1 2 ' 

30 PRINT AT 9,11; PAPER 3;"3ST 
RUZIONI" 

90 PRINT AT 11,0; "LINEE 
MOVIM. STOP ROUT 1 * 

100 PRINT AT 13,0; "S=sinistra 
5-8“ 

110 PRINT ”D=destra 
F*f ine" 

120 PRINT ”A=alto" 

130 PRINT "Beasse 6-7 

C=copia pl 

135 PRINT "I=ink N 
148 PLOT 88,72: DRAW 4,0; DRAW 
0,-15: DRAW -4,0; PLOT 92,68: DR 
AW 7,0: PLOT 80,55: DRAW 4*0: DR 
AW 0,-15; DRAW -4,0: PLOT 92,44: 
DRAW 7,0 

150 PLOT 136,72: DRAW 4,0: DRAW 
0,-32: DRAW -4*0: PLOT 140,60: 
DRAW 54,0 

160 PLOT 200,48: DRAW 0,-4; DRA 
W 48,0: DRAW 0,4; PLOT 224,44: D 
RAW 0,-22; DRAW -160,0 
170 PRINT FLASH 1 ; AT 21 ,2; H PRE 
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MI ’ V ENTEFT' PER CONTINUARE “ 

ISO IF CODE INK£Y$=13 THEN GO 

TQ 200 

190 SO TO 180 

199 REM Caricamente dell 'immagi 
ne 


200 CL5 i PRINT ■ISTRUZIONI PER 
I L C AR I C AMENTO DELL ' l MM AG I NE 

VIDEO* ' 

210 PRINT AT 4,0s‘'- POSIZIONA I 

L NASTRO - CONTROLLA INSERIME 

NTO JACK - PREMERE ^I~ PER IS 

TRUZIQNt" r r PREMERE ^R^ PER CA 
RICAMENTO" ' IJ - AVVIA IL REGISTRA 
TORE" 

220 IF INKEY$="i " THEN CLS : G 
O TO 50 

230 If INKEY*-"r" THEN GO TO 2 

m 

240 GO TO 220 
250 LQAD " " SCREENf 
380 REM Definiz. var. linee 
310 LET X<1>=0: LET X ( 2) =255: L 
ET )£(3>=0; LET X (41 =255 
320 LET Y C I > =0 ; LET Y (21=175: L 
ET Y(3J=0: LET Y(4>=175 
330 POR 1=1 TO 2 
340 PLOT OVER 1;0,Y(I): DRAW 
OVER 1 ; 255 ,0: PLOT OVER 1 * X < I 3 , 
0: DRAW OVER 1; 0,175 
350 NEXT I 

360 POKE 23659,2: PRINT #0; "Alt 
O Basso Sin Ben Fin Copia Imk" 
399 REM Routin spostamento Line 


400 

IF 

INK£Y*=“5” THEN 

00 

TO 

5 

00 






410 

IF 

INKEY$=‘d" THEN 

GO 

TO 

1 

000 






420 

IF 

INKEY*= J, b" THEN 

80 

TO 

1 

508 






430 

IF 

lNKEY$=*"a" THEN 

GO 

TO 

2 

000 






440 

IF 

INKEYf="c" THEN 

GO 

Q 

l™ 

3 

000 






450 

IF 

INKEY*=‘i- THEN 

INPUT 

■■ 

COLORE INK : "ift: INk A: 

GO 

TO 

3 

60 






455 

BEEP .02,8 




468 

OD 

TO 400 




499 

REM 

! linea verticale 

sinistr 

*500 

BEEP 0.05,38: LET Xfl)= 

X<3> 

510 

IF 

INKEY^-S" THEN 

LET 

X (3 

>^X<3)-S 

: GO TO 550 




520 

IF 

INKEY*= h, 8 ,t THEN 

LET 

X (3 

I -X (33 +0 

i GO TO 550 




530 

IF 

INKEY$= "F " THEN 

BEEP . 

8 

5,20: 

GO 

TO 400 




540 

GO 

TO 510 





550 IF X (3 1 < 0 THEN LET X£3>=0 
560 IF Xi3)>-X(2) THEN LET X C3 
J=X(2>-S 

600 PLOT OVER lì X (13,0; DRAM 


OVER 1; 0,175s PLOT OVER 1;X(33, 
0: DRAW OVER lì 0,175 
610 GO TO 500 

999 REM linea verticale destra 
1000 BEEP 0.05,30: LET X(2>=X(4> 
1010 IF INKEY*=75‘' THEN LET X t4 
>=XI43-S: SO TO 1058 
1020 IF ZNKÉ¥*-"8" THEN LET.X(4 
>^K*4)+0 : so TO 1050 
1030 IF INK£YT="f" THEN BEEP .0 
5,20: GO TO 400 
1040 GO TO Ì010 

1050 IF X (43 >=253 THEN LET X (4) 
-255 

1060 IF X(4K=X(33 THEN LET X C4 
J =X (33 +8 

1100 PLOT OVER 1 ; X 5 2 > ,0: DRAW 
□VER 1,0,175: PLOT OVER 1;XC4>, 
0: DRAW OVER 1,0,175 
1110 GO TO 1000 

1499 REM linea orizzontale jnter 
iore 

1500 BEEP 0.05,30: LET Y<l)-Y(33 
1510 IF INKEY*=”6” THEN LET Y (3 
»=Y(3>-8s GO TO 1550 

1520 IF { NKEY$ = " 7" r THEN LET Y (3 

J =Y £3 3+8: BD TO 1550 

1530 IF INKEY$ = ‘^“ THEN BEEP .0 

5,20: 80 TQ 400 

1540 GO TO 1510 

1538 IF Y (33 <0 THEN LET Y(33=0 
1560 IF Y ( 3) >”Y (23 THEN LET Y<3 
3=Y (23 -G 

1600 PLOT OVER 1;0 T Y(U: DRAW 
OVER 1; 255,0: PLOT OVER 1:0,Y(3 
ì: DRAW DVER 1:255,0 
1610 GO TO 1500 

1999 REM linea orizzontale super 
i ore 

2000 BEEP 0,05,30: LET Y(2>=Y<4) 
2010 IP INKEY^= M 6" THEN LET Y(4 
3 = Y ( 4 3 — 0; GO TO 2050 

2020 IF INKE¥*-“7" THEN LET Y<4 

3 =Y (4> -H3: GO TO 2050 

2030 IF INKEY3r= 1, t " THEN BEEP .0 

5,20: GO TO 400 

2040 GO TQ 2010 

2050 IF Y (41 >=175 THEN LET Y<4) 
-175 

2060 IF Y(430Y£33 THEN LET Y £4 
3™Y(3)+9 

2100 PLOT OVER 1?0,Y(2): DRAW 

OVER 1 ; 255 , 0 : PLOT OVER 1:0.YC4 

) : DRAW OVER 1:255,0 

21 10 60 TD 2000 

3000 INK 7: FOR 1=3 TO 4 

3810 PLOT OVER 1;X(IJ,0: DRAW 

OVER 1:0,175: PLOT OVER 1:0,YU 

> : DRAW OVER 1 ì 255 . 0 

3028 NEXT I 

3050 PRINT 40 S FLASH 1:" Oppia 
Rani in tase operativa " 

3499 REM copia raro 

3500 LET X3=INT (X(33/S3: LET X4 
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=1NT UU4>/e>! LET Y^-im £Y<3> 
78» +21: LET Y4=“ I NT £Y£4}/8»+21; 
LET DI = IWT t (X E4»-X £3» »/B>: LET 
D2=2NT <m4J-Y<3>>/8> 

3510 LET C^£l AND Y3<8>+<2 AMD Y 
3>=S AND ¥3<16>+<3 AMD Y3>=16> 
3520 LET B^U AND ¥4<8)+£2 AMD Y 
4>=8 AND Y4<16»+£3 AND Y4>-16) 
3530 LET S=£Y4 AND Y4<S)+<Y4-S A 
ND Y4>=0 AND Y4< 16 > + < Y4-16 AND Y 
4>=16> 

3540 LET G1=<Y3 AND Y3<0)+CY3-e 
AND Y3 > e B AND Y3< 16» +IY3-16 AND 

Y3 >= T 6 > 

3550 LET E=16384+204S#(B-1>+<B#3 
2> +X3: LET F=C: LET L=E 
3540 FOR M=B TO C 

3570 LET HÌ=<E+i AND B=M> + £ 1 AND 
B<f1> 

3580 LET H2=£Gi+l AND Olii + £B AN 
D Oli» 

3590 FDR I=H1 TO H2 
3600 FOR X=I TO 8 
3610 FOR M=E TO E+Qt 
3620 POKE D,PEEK N 
3630 LET D=D+1 
3640 NEXT N 
3650 LET E -E +256 
3660 NEXT X 

3670 LET L=L+32: LET E=L 
3600 NEXT I 

3690 LET F-F+32* EH2-H1+1 >+1792; 
LET E“F; LET L=E 
3700 NEXT li 

3749 REM capi a attributi 

3750 LET J=22528+(Y4#32>+X3 
3760 POR hNl TQ D2+1 

3770 FOR X=J TO J+Di 
3780 POKE D,PEEK X 
3790 LET D=D+1 
3800 NEXT X 
3010 LET . J- J+32 
3820 NEXT h 

3900 CLS : PRINT AT 8,0;“####+## 
#+-*# »**-*#***■*-#*** *-+**-* *** N - AT 10 
,6; “COPI A RAM COMPLETATA"'™**## 
*### # #** # #+* #*##+* **##-##»#-#* “ 

3901 IF K- 1 TBEN GQ TQ 3910 

3903 IF K=2 AND flagro THEN LET 
T=D: LET Tl-Dls LÉT T2=D2; PAUS 

E 100: CLS s PRINT » ISTRUZIONI P 
ER IL CARICAMENTO DELLA STESSA 

0 DI UNA SECONDA DIVÈRSA IrttiA 

Gl NE VIDEO': LET flagri; GQ TO 2 
10 

3904 IF K=2 AND Tl*g=l THEN LET 
T3=Dls LET T4=D2 

3910 PRINT AT 21,2; FLASH 1 ; "PRE 
li 3 '''ENTER' PER CONTINUARE" 

3911 IF CODE- INKEY£=i3 THEN GO 
TO 3920 

3912 DO TO 3911 

3919 REM ri locas ione 

3920 CLS : PRINT “PROCEDURA DI R 


I LOCAZIONE DELLA FINESTRA VIDEO 
IN POSIZIONE DE- SI DERAT A" 

3930 PRINT AT 5,U; PAPER 3; "IST 
RUZ I ONI “ ' J 

3940 PRINT COMPARSA DELLO SPA 
ZÌO OCCUPA- BILE DALLA FINESTRA 
NELL r ANGOLO SUPER I ORE S I N I STftO " ' 

' - POSSIBILITÀ f DI RILOCAZIONE 
SULLO SCHERMO DELLO SPAZIO E 
QUINDI DELLA FINESTRA CON I TA 
“ BT I DA 5 A 0 H r r 

3950 PRINT " = > Sinistra = S ltil, ^> 
Destra - S rl ™=> Alto = 7 W 

r, '=> Bassa ~ 6"™=> Stampa 
= s“ 

3960 PRINT 4*0; FLASH 1?" PREMI 
' , 'ENTER' V PER CONTINUARE" 

3970 IF CODE INKEY*=13 THEN SO 
TO 4000 

3900 CD TO 397B 

4000 CLS ; IF K=2 THEN LET Tlag 
=0 : LET Dl=Tl! LET D2=T2: LET P- 
58624 

4001 IF K=2 AND flagri THEN LET 
P=T s LET D1=T3= LET D2^T4 

4010 LET R (3 » =0: LET R£4»=B*Dl+7 
: LET S (3» =175- 0+D2+7» : LET SC4 
> = 175 

4020 FOR 1=3 TO 4 

4030 PLOT OVER 1;0,S(I); DRAW 

OVER 1:255,0: PLOT OVER 1;R£IJ, 

0: DRAW OVER 1; 0,175 

4040 NEXT I 

4045 IF K- 1 OR K=2 AND flag^G TH 
EN PRINT #0;"5=sin 6=bsssa 7=al 
to O-tìx Stampa" 

4049 REM spostamento 

4050 LET R 1 1 >«R £3» s LET R (2) =R £ 4 
) ; LET S(n«3(3>! LET S£2»^3£4> 
4060 IF INKEY$=“S" THEN LET R£3 
»=R<3>+8: LET R£4)=R£4)+8: GO TO 

4130 

4070 IF INKEY$="5" THEN LET R £ 3 
» =R £3 ) —0; LET R£4> =^R £4) ~S: GO TO 

4130 

4080 IF INK£Y$=“6 M THEN LET S£3 
ì=S£3J-0s LET S < 4> =5 £4 » —8 : SO TO 
4200 

4090 IF INKEY$= "7" THEN LET 0 £3 
J =S £31 +8ì LET 5£4>=S(4»+8: GQ TO 
4200 

4100 IF INKE¥f= M s" THEN GO TO 4 
300 

4110 DEEP .02,30 
4120 GO TO 4060 

4130 IF R (3? <B THEN LET R£3)=0: 
LET R£4»=S*Dl+7 

4140 IF R £ 4 » >255 THEN LET Ré 4>^ 
255; UET R(3»^255-£8*Dl+7> 

4150 FOR 1=1 TO 4 

4160 FLOT OVER l;RU» t 0: DRAW 

OVER 1 ; 0 , 1 75 

4170 NEXT I 

4180 60 TO 4050 
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4200 IF S(5)<0 THEN LET S(3>-Bi 
LET S(4)=G*D2+7 

+210 IF S ( 4) >1 75 THEN LET S14>” 
175; LET S ( 3> = 1 75- (S*D2+7 > 

4220 FOR 1=1 TO 4 

4230 PLOT OVER l;0 t S(I): DRAW 

□VER 1; 255,0 

4240 NEXT I 

4250 QO TO 4050 

4300 POR I“3 TD 4 

4301 PLOT OVER 1 ; R C I > T «s DRAW 
OVER 1*0*175; PLOT OVER 1; 0,5(1 
>: DRAW OVER I; 255,0 

4302 NEXT I 

4310 LET R3=INT <R£3)/B)i LET R4 
= 3 NT (R(4)/G>: LET S3=-INT (8(3) 
/BÌ+21; LET S4--ENT (S£4>/B)+-21 
4320 LET CI=(i AND S3<B)+(2 AND 
53 >=S AND S3< 16) + <3 AND S3>=16) 
4330 LET Bl = ( 1 AND S4<B)+(2 AND 
54>=B AND S4<16)+(3 AND S4>=16> 
4340 LET G2=(54 AND S4<8) + (S4-B 
AND 54>=8 AND S4< 1 6) + £S4- 16 AND 
54 >=161 

4350 LET G3=(53 AND S3<8>+(S3~S 
AND S3>=B AND 33< ì 61 * (33-16 AND 
53>=16> 

4500 LET El= 1 6304+2048* (Bl-1>+ (8 
2*32 1 +R3 

4510 LET F1=E1; LET L1=E1 

4520 FOR M=B1 TO Cl 

4530 LET H3=(82+l AND Bi=M)+(l A 

ND at<Mi 

4540 LET H4=£G3+1 AND Cl=M>+<8 A 
ND Cl >H) 

4550 FOR I-H3 TO H4 
4560 FOR X=I TO 8 
4570 POR N— E 1 TO El+Dl 
45B0 POKE N , PEEK P 
4590 LET P=P+1 
4600 NEXT N 
4610 LET E 1 =E 1 +256 
4620 NEXT X 

4630 LET LI =L 1+32: LET Ei-Ll 
4640 NEXT I 

4650 LET F1=F1+32*(H4-H3+Ì)+Ì792 
; LET Él=Fl: LET L1=E1 
4660 NEXT M 

4699 REM attributi 

4700 LET J 1=22528+ £34*32) +R3 
4710 FOR M=1 TD D2+1 

4720 POR X-J 1 TO J 1 +D 1 
4730 POKE X.FEEK F 
4740 LET P=P+1 
4750 NEXT X 
4760 LET J l=Jl+32 
47?0 NEXT M 

4780 IF fi ag=l THEN GO TO 4B00 
4790 IF K=2 AND flag=0 THEN LET 
flagri: GD TO 4001 
4000 IF V$="m" THEN GO TO 7500 
4999 REM copia Sli cassetta o rii 
□caìidne 
5B00 INPUT " 


FRI NT 40; M Save Ila 
di-Fica attr. Rilocazione' 1 

5001 LET V*=IN KEY* 

5005 IP WO"5 M AND V#<>"r" AND 
V$<> 41 m" THEN SO TO 5001 

5006 INPUT 11 

5010 IF V*= '5 ,k THEN GO TO 5500 

5020 IF V*=-r M THEN CLS : LET P 

=58624; GO TO 3920 

5030 IF THEN SO TO 7000 

5500 INPUT "TITOLO IMMAGINE; " ; T 

4 

5510 IF LEN T*>10 THEN SO TO 55 

00 

5520 SAVE T*SCR£EN$ 

5530 CLS : PRINT INVERSE 1 ; "OPZ 
IONI: 1 : PRINT AT 3,0; FLASH 1 ; 4i 1 
FLASH 0; M . RITORNO MENU ' ,r J ; 
FLASH l: INVERSE 0; "2"; FLASH 0; 
H . STOP" 

5540 IF INKEY£= rj 1 " THEN SO TO 1 
5550 IF I NKEY$="2 41 THEN STOP 
5560 80 TO 5540 

700B INPUT l4 INK (0-7): l, ;W<2) T "P 
APER (0-7): " ; W(3> 

7050 INPUT iJ BRIGHI (0-1 > i " ; W ( 4) , 
"FLASH (0-1 1 : ";W(5> 

7100 BORDER W(3>: LET UI(1)=W(2) + 
8*W(3)+<64 AND W(4)=1)+(12B AND 
W(5)=l> 

7500 FOR X= 22520 TO 23296 
7510 POKE X,WU) 

7520 NEXT X: 80 TO 5000 
999B 3 A VE "scredi*" LINE 1 
9999 VERIFY i, 5 Creen$ 1 ’ 


Astrolabio 


1 

REM 

******** * ******* ***** 

2 

REM 

** ASTROLABIO 

** 

3 

REM 

** 

** 

4 

REM 

** BY 

#* 

5 

REM 

**- 

** 

6 

REM 

** BALLERINI FABIO 

** 

7 

REM 

* **# * ************** * * 

8 

REM 



.0 

REM 

lettura dati 



20 GO SUB 1670 

30 REM ROUTINE PRINCIPALE 

40 GO SUB 120 

50 INK 7: PAPER ls BORDER 1: C 
LS ; CIRCLE 132,88,35: LET q=,?5 
; LET x0=0: LET y0=0: GO SUB 420 
60 PRINT #0;AT 1 , 0; " I ngrandi me 
nto Cambio data Stampa" 

70 LET s*=INKE¥$: IF A 

ND s*O u s ,r AND 5$<>V" THEN 60 
TO 070 

80 IF s*= J, s" THEN COPY ; GO T 
□ 060 
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70 IF s$=" C " THEN GO TO 040 
IO® GO SUB 340: GO TQ 060 
110 REM DISEGNO 

120 IF PEEK 50000=255 THEN GO 
TO 210 

130 PQKE 50000,255: PAPER 6: IN 
K 0: BORDER 6: CLS : POR 1 TD 
13: FRI NT PAPER 7;AT 2+1,5;” 
a, s NEXT i 

140 PLOT 3?, 159: DRAW 30,0: DRA 
W 0,-112: DRAM -99,0: DRAW 0,112 
: PLOT 40,159: DRAW 06,0: DRAW 0 
,-110: DRAW -86,0: DRAW 0.110 
150 FOR i —2 IO 6 STEF 2: PLOT 4 
0+i r 159+i: DRAW 99,0: DRAW 0,-11 
2: NEXT j 

160 CIRCLE 200,100,40: CIRCLE 2 
00,100,34: PLOT 156,144: DRAW 97 
,0: DRAW 0,-87: DRAW -97,0; DRAW 
0,97 

170 FOR 1=2 TO 9: PLOT 156+i , 14 
4+1: DRAW 06,0: PLOT 243+i , 143+i 
: DRAW 0,-96; NEXT i 
190 POR i — 0 TO 2*P I STEP PI 76 
190 PLOT 32+COS i +200, 32*5 IN i+ 
100: DRAW 7+CQS i ,7*SIN 1 
200 NÉXT i: CIRCLE 200,100,2: R 
ANDOMIZE USR 50001 
210 REM RICHIESTA DATI 
220 INK 0: BORDER 6; BRlGHT 0: 
RANDOMIZE USR 50013: PAPER 7: IN 
FOT FAPER 7 ; AT 0, 10; ; "GIORNO 
11 È©; IF E<0 OR G>31 THEN SO TO 
210 

230 PRtNT INK 2;AT 8,7+<G<10>: 
G 

240 INPUT PARER 7;AT 0.tl; J 'MES 
E " ; MS ; IF MS<1 OR MS>12 THEN 
GO TO 240 

250 PRTNT AT 4 t ó;M*<ftSI 
260 INPUT PAPER 7 ; AT 0,10; "ANN 
0 A: IF A< 100 THEN LET A=A+ 

1900 

270 PRINT AT ll,9sA 
290 INPUT PAPER 7; AT 0,11; "ORE 
”;D: INPUT PAPER 7 ; AT 0,10; u 
MINUTI ";M: IF 0>24 OR N>60 TM 
EN GO TD 290 

290 LET IML-G+M/60 ; PLOT 200,10 
0: DRAW 22* SIN (TML*PI 76) , 22*005 
CTNL+PI/63; PLOT 200,100: DRAW 
29+5IN (M+PI/30) ,27+CDS fM+PI/30 

309 PRINT AT 21 ,5; "Canf ermi, i d 
at i <s7nl ” 

310 LET s*=£NKEY*: IF >”s* A 
ND >"n” THEN GO TO 310 

320 TF Bf="n" THEN OD TO 120 
330 RETURN 

340 REM DATI PER L r INGRANO I MEN 
TO 

350 INPUT "Introduci il {attore 

di ingrandimento J, ;q 

360 PRINT #0;AT 1,0; "Vuoi esprl 


mere il centro delle zona da in 
grandire in coordinate Equatori e 
li o Al tazi mutali H 
370 LET s*=INKEY$s IF s$<>"a" A 
ND 5 *<>"b“ THEN GO TO 370 
300 IF s$= "e" THEN TNPUT AT 1, 
4; ” Ascensione £0-24) J1 ;a5c: INPU 
T AT i ,4; ''Declinazione É -90/90) 

" ; dee : GO SUB 1360: GO SUB 1470: 
GO SUB 1590: GO TO 400 
390 INPUT AT 1,7; "al tazza <0-70 
1 ; al : INPUT AT 1 , 7 ; ' azimut £0- 

360 1 11 ; az 

400 LET XB=G*<7B~AL)*SIN <AGG*A 
ZI: LET Y0=Q+ < 7B-AL > *C09 <AGG*AZ 
> 

410 CLS : SD SUB 420: RETURN 

420 REM STAMPA STELLE 

430 RESTORE 620 

440 GO SUD 1360: GO SUB 1470 

460 READ AS 

470 IF AS= 1000 THEN RETURN 
490 IF A3=255 THEN READ A$: PR 
INT #0;AT 1,9 ; n 

” ; AT 1 , (32— LEN A£Ì/2:A*: BEEP 
0.09,30; READ AS 
470 READ US, DE, DU, MAS 
500 IF INkEY*O iaia THEN GO TQ 3 
00 

510 LET ASC= AS+US / 60 : LET DEC=D 
E+DU/60+SGN DE- 70 
520 IF DEC<LT-180 THEN GO TO 4 
60 

530 LET P=AGG+15+<TSL~ASC> 

540 LET X=Q*DEC#53N P+132-X0 
550 LET Y-G*<DEC*COS P-LT+90J+© 
a-Y0 

560 IF < X — 132) * £ X— 1321 + £ Y— 89) * i 
Y-S9) >=8100+0*0 THEN GO TO 460 
570 IF <X< 1 OR X >254 OR Y< 1 OR 
Y>1 74 ) THEN GO TO 460 
5B0 IF MAE >3 THEN PLOT X,Y; GO 
TO 460 

590 ÌF MAG< 1 . 65 THEN PLOT X,Y: 
PLOT X , l + ¥ : PLOT X,Y-1: PLOT X + 
1 , Y; PLOT X— 1 ,Y: GO TO 460 
600 PLOT X,Y; PLOT X+l ,Y: GO TO 
460 

610 REM COORDINATE STELLE 
620 DATA 255, "Orsa minore 13 
630 DATA 14,51, 74 , 22 ,2» 24 , 15,21 
, 72 , 1 , 3 » 1 , 1 7 , 49 , 96 , 37 , 4 , 1 , 49*87 , 
2,2.1 ,255 

640 DATA "Crea maggiore' 3 
650 DATA 12,52,56, 14, 1. 7,11 , 16 t 
31 1 47 ,3.2, 11,16, -33,22 ,2.6, 13,46 , 
49,34, 1.9, 11 , 1,62,1 ,1.9, 12,13,57 
,19,3.4,10,59,56,37*2.4,13,22,55 
, 1 1,1. 7,1 1,51 ,53, 58, 2. 5, 9, 56, 49, 
14,2.7, 10,17,41 ,45,3 , 10,14,43,10 
, 3 , 255 

660 DA T A " Caae i op eia' 3 
670 DATA 0,46,57,33,3,0.6,55.52 
,2. 4,0,53,60,26,2, 1 ,23,57,59,3,0 
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,30,56,10,2.5, 1 ,51,63,25,3. 3, 255 
tea data "Cefee* 

690 DATA 21,17,62,22*2.6,21,20, 

70.20.3. 3.23.37.77 .21.3. 2.255 
700 DATA 'ercole’ 1 

710 DATA 17,12, 14, 27 ,2.5,16,4,2 

1.35.2.0. 17.13.24.54.3.2.255 
720 DATA "Dragone" 

730 DATA 17,29,52, 20,2. 5 , 17,55, 
51,30,2.4,17,9,65,47,3.9,19,13,6 

7.34.3.2.14.3.64.37.3. 255 
740 DATA "Andromeda” 

750 DATA 2,1,42,5,2,1,7,35,21,2 
,255 

760 DATA "Gemei U " 

770 DATA 6,53,16,27,1.9,7,31,32 
,0, 1.6,6,41,25,11,3.2,7,42,23,9, 
1.2,7, 17,22,5,3.5,6, 12,22,31 ,2.9 
,6,20,22,32,2.9,255 
7S0 DATA "Aquila" 

790 DATA 19,53,6,17,3,9,19,49,0 
,44,.S,19,23, 3,35,3.4 ,19,44,10,2 
9,2.B,255 
S00 DATA "Auriga 1,1 
010 DATA 5, 13, 45, 57, .21, 5, 56, 44 
,57,1.9,255 
B20 DATA ■Lira" 

830 DATA 10,40,33,10,3.2,10,57, 

32.37.3.2.18.35.38.44.. 1 .255 
040 DATA "Leone" 

050 DATA 10,14,23,40,3.5,11,12, 

15.42.3.3.11 .47. 14.51 .2.2.9.43.2 
4*0,3.5,9,50,26, 15,4. 1,10,6, 12,1 

3.1.3.11.11 .20.49.2.6.255 
060 DATA "Cigno" 

070 DATA 20,44,33,47,2.6,19,50, 

44.35.2.0. 19.54.35*1 ,3. 1, 19,29,2 

7.51 .2.4.20.40.45.6. 1.3.20.20.40 
,6,2.3,255 

000 DATA "Pegaso" 

090 DATA 23,1,27,49,2.6,22,41*2 

9 . 58. 3 . 23 . 2 . 1 4 . 56 . 2. 6 . 22 . 39 . 10.3 

4.3.6.21.42.9.39.2.5.0. 11.14.54, 

2.9.255 

9@0 DATA "Perseo" 

910 DATA 3,21 ,49,41 , £.9,3,5,40, 

46.2.2.3.51.31.44.2.9.3.21.49.41 
,1.95,255 

920 DATA "gridano" 

930 DATA 2,56,-40,30,2.8,1,36,- 

57.29.0. 6.5.5,-5,9,2.9,3,41,-9,5 
6,3.7,4,34, -30 ,40,4.1,3,56 T -13,3 

9.3.2.255 

940 DAT A "Scorgi one " 

950 DATA 16,3,-19,40,2.9,16,26, 
-26, 19,1 ,15, 57, -22, 29, 2,17,30,-3 
7,4, li 7, 255 
960 DATA "Cancro" 

970 DATA 8,56,12,3,4.2,8,42,18, 

20.4.1.8.40.21.39.4.7. 255 
9B0 DATA "Vergine” 

990 DATA 11, 48, 2,3,3. 8, 12, 39, -I 
,11 ,3.6, 12,53,3,40,3.7, 13,23,-10 
,54.1.2,255 


1000 DATA "Aquario" 

1010 DATA 20,45,-9,41,4,21,29,-5 

,48,3,22,52,-16,5,3,255 

1020 DATA "Corvo" 

1030 DATA 12,6,-24,27,4.2,12,27, 
—16, 14,2:8,12,32,-23,7,2.8,12,8, 
-22,20,2.8,255 
1040 DATA "Idra" 

1050 DATA 9,25,-0,26,2.1,255 
1068 DATA “Boote" 

1070 DATA 14,13,19,27,-0.2,15,0, 
40, 35, 3. 6, 14, 30, 38, 32, 3, 15, 23, 37 
,33,4.2,255 
1080 DATA "Orione" 

1090 DATA 5,45,-9,41 ,2.2,5,52,7, 

24 .0. 8.5. 34 ,— 1, 14,1.7,5, 38 , — 1 , 53 
,2,5,22,6,18,1.7,5,33,-5,56,4,5, 

32.9.54.4.5.29.0. 0.2.4.5.12,-8,1 

5.0. 3.255 

1100 DATA "Sagittario" 

1110 DATA 19,20,-40,43,4,19,19,- 
44 , 33 ,4,18, 59 , —29 , 57 ,2.4, 18,21,— 
34,25,1.9, 18,25 , -25,27,2. 9,18,18 
,-29,51 ,2.8,18,3,-30,26,3.2,19,1 
,-21,49,2, 1 ,255 
1120 DATA "Pesci" 

1130 DATA 1 ,59,2,31 ,4.3, 2S5 
1140 DATA "Cane maggiore" 

1150 DATA 6,57,-28,54, 1.7,7,22,- 
29, 12,2.4,6, 18,-30,2,3,6,20,-17, 
56 ,2,7, 1,-15, 33 ,4,6, 43 , — 16, 39 , — 1 
.4,7,6,-26,19,2,255 
1160 DATA "Serpente" 

1170 DATA 15,42,6,35,2.7,255 
1180 DATA "Cane da caccia” 

1190 DATA 12,31,41,38.4.3,12,54, 

38,35,2.6,255 

1200 DATA "Balena" 

1210 DATA 1,49,-10,35,3.9,0,41,- 

18. 16.2.2.2.41.3.2.3.5.3.0. 3.54, 
3.3,2, 17, —3 , 12,3,255 

1220 DATA "Ariete" 

1230 DATA 3,9,19,32,4,2,4,23,14, 
2. 2, 1 ,51 ,19,3,4, 1 ,52*20,34,2. 8,2 
55 

1240 DATA "Capricorno" 

1250 DATA 20,18,-14,56,3.2,20,15 

,-12,42,3.7,255 

1260 DATA "Pesce australe" 

1270 DATA 22,55,-29,53,1.3,255 
1280 DATA "Corona boreale" 

1290 DATA 15,33,26,53,2.3,255 
1300 DATA "Cane minore 11 
1310 DATA 7,24,8,23,3,7,37,5,21, 
.5,255 

1320 DATA "Ofiuco 1 

1330 DATA 17,41,4,35,2.9,17,33,1 

2,36,2,17,8,-15,40,3.2,16,12,-3, 

3^340* DAT A "Bilancia" 

1350 DATA 15,33,-14,37,4,14,48,- 
15,50,2.9, 15,14,-9, 12,2.7, 1000 
1360 REN CALCOLO 81 ORNI PASSATI 
DALLO 0 0 1980 
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1370 IF MS >2 THEN SO TO 1420 
13G0 LET D=MS-1 

1390 IF INI <A/4>=A/4 THEN LET 
D=D*ó2i SO TO 1410 
1400 Lei D=D*63 

1410 LET DI— I NT <D/2>+G: OD TO 1 
4S0 

1420 LET D=INT £30.6*£MS+n) 

1430 IF INT £A/4)=A/4 THEN LET 

D 1 — D— 62+G: GO TO 1450 

1440 LET Dl=D-63+G 

1450 LET D=D 1+365# £ A“1 980 1 + I NT < 

<A-19aU/4>+l 

1460 RETURN 

1470 REM CONVERSIONE TML IN TSG 

1400 LET TMG^TML-FUSD 

1490 IF TMG>24 THEN LET TMG=TMG 

“24 

1500 IF TMG<0 THEN LET TMG=TMG+ 
24 

1510 LET T0=Dl+Aft-BB 

1520 LET TSG=CC*TMG+TB 

1530 IF TSG >24 THEN LET TSG^TSG 

“24 

1540 IF TSB<0 THEN LET TSG=T5E+ 
24 

1 550 LE T T SL=TSG+LN / 1 5 

1560 IF TSL >24 THEN LET TSL=TSL 

-24 

1570 IF TSL<0 THEN LET T5L=TSL+ 
24 

1580 RETURN 

1590 REM CONVERSIONE COORDINATE 
EQUATORIALI IN AL TAZI MUTALI 
1600 LEI H0=fTSL-ASCJ#15 
1610 IF HGK 0 THEN LEI HG=HG+360 
1620 LET SD-SIN £DEC*AGG) 

1630 LET AL^GGA*ASN tSD*SL+C05 £ 
AGG*DEC>#CL#COS (AGG+HQ) 1 
1640 LET A2=GEA*ACS £ CSD-5L*SIN 
£ AGG# AL > > /CL/CQS i AGG*AL J ? 

1650 IF SIN {AGG*HQ1>0 THEN LET 
AZ— 360— A3 
1660 RETURN 
1670 REM DATI 

16B0 DIM M-t £ 1 2 1 9 ) : LET LT^43.794 
642: LET LN=13. 1 1 1 1 1 1 ; LET FUSO= 
1 

1690 LET AA=. 0657098: LEI BB=17. 
409421: LET CC~ 1.002730: LET DD= 
.997270 

1700 LET AGG-P3/1B0: LET GGA^1S0 
/PI: LET 3L=SIN £AGG+LT): LET CL 
=CDB £AGG*LT> 

1710 RESTOSE 1720: FDR 1 = 1 TO 12 

: READ M#£i > : NEXT i 

1720 DATA ■' GENNAIO M "FEBBRAIO" , 

" MARZO M , “ APR ILE"' , " MAGGIO" , " 

BI UGNO" /■ LUGLIO"/ 1 ASOSTO ", "SET 

T EM BRE " , " OT TOBRE " /' NO VFM BRE % r, D 

ICEMBRE" 

1730 RESTOSE 1740: FOR i=0 TO 23 
: READ b: PDKE 50001+i,b: NEXT i 
1740 DATA' 33,0,64, 17*32, 203 , 1 , 0 , 


27 , 237 , 176 , 201 , 17,0 ,64,33 , 32 , 203 

,1,0,27,237,176,201 

1750 RETURN 


Simon 


1 REM - — — — 

2 REM -PROGRAM BY ALEX PARDI- 

4 REM — — — 

5 LET TOP=0 

6 PAPER 0: BQRDER 0: INK 7: C 
LG 

7 FRI NT AT 1 0 , 5 : "BENVENUTO DA 
SIMON! " 

8 PRINT AT 12,5/' INPUT DIFFIC 
OLTA' <l-3>" 

9 PAUSE 0: LET K=CODE INKEYf: 
IF K<49 OR K>51 THEN GO TO B 

10 LET LEV 3 K— 48 
20 LET ERR=0 : LET RT=0: CLS : 
DO SUB 9000 

25 REM SEQUENZA COMPUTER 
30 PAUSE 100: D I M A £501 
40 FOR N=1 TO 50 
45 RANDOMIZE 65536*RND 

50 LET D=(CLB-<INT £N/4J ) /5) /L 
EV— LEV/25: IF D>0 AND N<12 THEN 

SO TO 60 

51 IF LeV^l THEN LET D=0. 1 

52 IF LEV=2 THEN LET D=.06 

53 IF L£V=3 THEN LET D=.0i 
60 LET A £ N> = INT CRND*4I +1 
70 FOR R— 1 TO N 

B0 LET RT=64: GO SUB 9000+- 100* 
A £R ) 

90 DEEP D, £PEEK 31019) /2~10 
100 LET RT=0; GO SUB 9000+ 100* A 
(R) 

110 NEXT R 

115 IF ERR=i THEN RETURN 

117 REM SEQUENZA GIOCATORE 

120 FOR R=t TO N 

130 IF I NKEY$= ,p 11 THEN GO TO 13 

0 

140 PAUSE 0 

150 LET K>CODE INKEY* 

160 LET RT=64: GO SUB 8000+K 
170 IF ANSOA£R) THEN GO TO 70 
00 

IBS BEEP D, CPEEK 31018) /2-10 
190 LET RT— 0 : GO SUB 8008+L 
200 NEXT R: PRINT FLASH 1 ; AT 1 
6,23; N+ 1 : PAUSE 25 
210 NEXT N 

220 CLS : FDR N 3 1 TO 3: FOR M=5 
0 TO -20 STEP -3.5; BEEP .1,M: N 
EXT M: NEXT N 
225 REM ROUTINE VITTORIA 
230 BEEP 2,-10; PRINT AT 10,0; rJ 
RAGAZZO, SEI ENTRATO NELLA LEE* 
GENOA. O SEI UN MOSTRO 0 HAI BA- 
RATO. COMPL IMENI I IN OGNI CASO. " S 
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FLASH liAT 20,0; 'PER GIOCARE PR 
EHI UN TASTO" 

240 PAUSE 0: CLS : GO TU 6 
7000 REM ROUTINE ERRORE 
7010 BEEP 2,-103 CLS ! PRlNT AT 
3, 1 2* FLASH 1 ; "ERRORE “ " ; FLASH 0 
J| 'VUQ1 VEDERE LA SEQUENZA ESA 
TTA' * * 5 "; AT 10, 13? " <S/N> " : PAUSE 0 
7020 TF 1NKEYÌ-"S" OR INKEY*-"a" 
THEN LET ERR-1: LET D“. 1 i LET 
RT=8: CLS : RESI ORE 9050;; GO SU 
9 90403 RESTORE : 60 SUB 70 
7030 IF N- 1 >TDP THEN LET TOP=N- 
1 

7040 CLS ; PAINI AT 10,0; "HAI RI 
CORDATO ";N— 1|* PASSAGG I , “ : AT 13 
,0; "IL RECORD E * TOP; AT 20,0: F 
LASH li "PER GIOCARE PREMI UN TAS 
TO. “i PAUSE 0i RESTORE : CLS ; G 
O TO B 

G 100 LET ANS-3: GO SUB 9300: RÉT 
URN 

8101 LET ANS- 1 : GO SUB 91003 RET 
URN 

8104 LET ANS=4i GO SUB 9400: RET 
URN 

8117 LE? ANS-2* GO SUD 9200* RET 
URN 

8999 REM CARICAMENTO CODICI LM E 
INIZI ALI ZZAZI ONE SCHERMO 

9000 FOR n=31002 TO 31027 


9010 READ Al POKE fi, a; N£XT n 
9020 DATA 17,22,0,58,24,121,111, 
50,25,121,103,0,5, 14,10,54, 12,35 
,13,32,250,25,5,32,244,201 
9040 PLOT 32,1521 DRAW LB4,0: DR 
AM 0,-120: DRAM -1B4,0: DRAM 0,1 
20: DRAW 30,23: DRAW 124,0* DRAW 
30,-23 

9045 PLOT 35,150: DRAW 178,0: DR 
AM 0,-99: DRAM -178,0: DRAM 0,99 
9050 PLOT 228 , 0 : DRAM -30,23: DR 
AM -68,0: PLOT 110,23: DRAM -68, 
0; DRAW —30,-231 DRAW 200,0 
9055 PLOT 130,32; DRAW 0,-20; PL 
OT 118,32: DRAM 0,-20 
9060 FOR 1-1 TO 4: READ X,V: PLO 
T X , Y 

9070 DRAM 75,0: DRAM 0,-36? DRAM 
-75,0: DRAW 0,36 
90B0 DATA 42,141,130,141,42,93,1 
30,93 

9090 MEXT I 

9095 PRINT AT 16,6? “DIFF, M ( FLA 
SH 1 ; LEV; FLASH 0;" LEVEL 
FLASH i ; " 1 *' 

9100 POKE 31000,133: POKE 31001, 
80: POKE 31010,48+RT: IF RT=0 TH 
EN GO SUB 9999 

9101 IF RTO0 THEN GO TO 9999 

9200 POKE 31000,144: POKE 31001, 
GB; POKE 31018, 40+RTr IF RT=0 TH 
EN SO SUB 9999 

9201 IF RTO0 THEN GO TO 9999 


9300 POKE 31000,69; POKE 31001,8 
9: PQKE 31B1B, I6+RT: IF RT-0 THE 
N GO SUB 9999 

9301 IF RTO0 THEN SO TO 9999 

9400 POKE 31000,801 POKE 31001,8 
9* POKE 31018, 32+RT: IF RT-0 THE 
N GO SUB 9999 

9401 IF RT < >0 THEN GO TO 9999 
9500 RETURN 

9999 LET L=USR 31002* RETURN 


Slot-machlne 


3 REM **44#tt m»m ■ ut**»* 

4 REM #** SLOT MACHIhC *+* 

5 REM **-* di *** 

6 REM *** Paolo De Rosa #** 

7 REM *** 16 K RAM M* 

B REM *++ (GRAFICA) *** 

9 REM ****###********##*«■#* 

10 FOR a-144 TO 1S8: FDR 6=0 T 
0 7i READ c 

20 POKE: < USR CHR* aJ+b,c 
30 NEXT b: NEXT a: RESTORE 
50 DATA 0,0,14,31,63,127,103,1 

27 

60 DATA 45,64,176,248,252,252, 
254,254 

70 DATA 127,127,63,63,31,15,3, 

0 

80 DATA 254,254,252,252,240,24 
0, 192,0 

90 DATA 0,0.14,30,55,125,111,1 
25 

100 DATA 48,64,176,184,100,252, 
190,246 

110 DATA 123,63,54,31,13,6,3,0 
120 DATA 254, 1B2, 252,220, 248, 17 

6.192.0 

130 DATA 0,0,6,15,31,31,63,63 
140 DATA 40,64,160,240,248,248, 
252,252 

150 DATA 63,63,31,31,15,7,3,0 
160 DATA 252, 252, 24B, 24B ,240, 22 

4. 192.0 

1 70 DATA 0,0,14,31,31 ,63,39 , 127 
180 DATA 0,253,246,223,245,111, 
58,31 

190 DATA 0,255,189,239,123,238, 
1 80 , 248 

2000 LOAD "SLOT MACH. ■ 

2100 SAVE "slot qraf." LINE 10 
2200 STOP 


100 CLS ; LET doli =25 

200 B CADER 0: PAPER 0: IN: 7: D 

S 

220 POKE 23609,160 

250 RANDOMIZE 

270 FOR TO 21 5TEP 8 
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2B0 PRIMI PAPER 7; INK 0:AT 14 
,s:"BAR ";A T 15,5; "BAR ";AT 16,5 
j'BAR ™s NEXT e 

2*70 PRINT PAPER 6; INK IjAT 0, 
10? "SLOT -MACH INE" 

300 PLOT 17,32 i DRAW 206,0? ORA 
Ul 0,44: FLOT 226,76? DRAW -210,0 
: DRAW 0,-44? PLOT 226,76: DRAW 
0,95: DRAW -50,0: PLOT 79,171: E 
RAW -65, 0: DRAW 0,-95: DRAW 3,0 
310 POR n= 112 TO 134 STEP 2: PL 
QT 240, n: DRAW -6.0? NEXT n 
312 FDR TO 14 

315 PRIMI INK 7sAT n,29:CHR* 1 
33: NEXT n 

316 PRIMI INK 7; AI 14,29;CHR$ 
140+CHR* 141 

317 PRINT AT IG,2;CHR$ 146+CHR* 
147; AI 10,26;CHR$’ 146+CHR* 147 
320 PRINT BRIOHT 1; PAPER 7; I 

NK 2; AI 1,2; CHR# 148+CHRS 149+** 
=2x ” ; AT 2,2;CHR$ 150+CHR* 

151+“ 

325 PRINT PAPER 7; INK 2; AT 3. 
2; CHR$- 144+CHR* 145+*' =3* A 

j AT 4^2; CHR* 146+CHR* 147+“ 


330 PRINT PAPER 7: BRIGHI I; I 
NK 2? AT 5,2;CHR$ 14S+CHR$ 149+“ 
J '+CHR* 140+CHR* 149+" =5x":AT 

6,2: GHR* 150+CHR* 151 +" *+CHR^ 
iSÓ+CHRS 151 + '* 

335 PRINT PAPER 7; INK 2jAT 7. 
2;CHR* 144+CHR* 145+" "+CHR$ 144 
+CHR$ 145+" = I0x";AT S,2;CHR^ 

146+CHR* 147+ " "+CHR$ 146+CHR* 1 
47+" 

340 LET j$=CHR$ 152+CHR$ 153: L 
ET k$=CHR* 154+CHRS 155+ J * PRI 
NT PAPER 7 ; BRIGHI 1; INK 1 ; AT 
9,2; j*'+ M ”+j*+" "+ j*+"=25x H ; AT 1 
0,2; k^ + k^+k4+" ";AT 11,2; "gli 
a ! tri - H 

345 LET f$=CHR$ 148+CHfì* 149+" 
LET g<MCHR$ 150+CHR* 151 + “ "i 
PRINT PAPER 7; INK 2;AT 1,14;T 
4++4+f S+* J -50 x";ftT 2, 14jgì+g$+g$ 
+ " ■■ 

350 LET b-t^CHR* 144+CHR^ 145+“ 

“ : LET dS^CHR* 146+CHR* 147+ " 
PRINT PAPER 7; BRIGHT 1: INK 2 
S AT 3,14; b$+bf +fe:$+ 11 ^1 00x " ; ftT 4,1 
4 ; d$ +di+df+ ,J 

355 PRINT PAPER 7; INK 0;AT 6, 
14;" 250"; AT 5, 14; “BAR 

BAR BAR =x" 

360 PRINT PAPER 7; BRIGHI 1; I 
NK -0; AT 7, 14: “BAR BAR BAR ^x';AT 
9, 14: “BAR BAR BAR50B" 

365 PRINT PAPER 7; INK 0; AT 9, 
14; "BAR BAR BAR =x " ; AT 10, 14; "BA 
R BAR BAR 10" ; AT 11,14; "BAR BAR 
BAR 00" 

395 LET k=ó : IF doll<6 THEN LE 

t k j =don 

400 PRINT PAPER 2; INK 7;AT 21 


,0; “HAI ** ; AT 21.4;dolI;" * 

";AT 20,3; "QUANTO FONTI ? <MAX 

* 40^ INPUT z* 

404 IP z$="“ THEN GO TO 403 

405 LET z*=z*i 1 TO 1) 

410 IF CODE z*<49 OR CODE z*>54 
THEN GO TO 403 
420 LET z=VAC z$: LEI z=IMT z 
430 IF zMc.ll THEN GO TO 400 
470 PRINT PAPER 2; INK 7;AT 21 
7 15;" HAI PUNTATO ";AT 2l,29;z; 

475 PRINT AT 20,3; " 

476 LET dDll=doll-E 

477 PRINT PAPER 2; INK 7;AT 21 

, 4; “ “ ; AT 21,4; dnl 1 ; 11 4 


480 PRINT AT 20,5: INK 7: PAPER 
2; “PREMI C M > PER TIRARE" 

482 IF I NKEV4— |J OR INK£Y$= 11 M" 

THEN 00 TO 484 

4S3 GO TO 4 02 

484 PRINT AT 20,5; “ 

495 LET t=0T LET cont=0: LET w= 
5 

490 GO TO 490+ INI ÉRNI>*69> + 1 
500 BEEF .04,20: PRINT PAFER 7 
; INK 0:AT 14, w; "BAR AT 15, w; " 
BAR AI 16, w; "BAR " : POR n=0 TO 
t: NEXT ni GO SUB 1000 
510 BEEP .04,20: PRINT PARER 7 
; INK 2; AT 14, w; " ";AT 15 , n; " 

"+CHR4 157+CHR4 159+” " ; AT 16, « 
; PAPER 7;" FOR n=B TO ti 

NEXT n: GO SUB 1000 
530 BEEP .04,20: PRINT PAPER 7 
; INK 0? AT 14 jW; "BAR IH ? AT 15,w;" 
"ì AT 16, w; "BAR FOR n=0 TO 
t: NEXT n: GO SUB 1000 
540 BEEP .04,20: PRINT PAPER 7 
; INK 2:AT 14, w;“ “:AT 15,«;" 
"+b4 ; AT 1 6 , w ; " "+d$; POR n^0 TO 
t: NEXT r.5 GO SUB 1000 
545 BEEP .04,20: PRINT PAPER 7 
; INK 4; AT 14,w;" " : AT 15,w; N 

“+CHR4 156+CHR4 145+" " ; AT 16, w 
"+CHR4 146+CHR4 147+“ "i FOR 
n~0 TO t: NEXT n: SO SUB 1000 
550 BEEP .04,20: PRINT PAPER 7 
f INK 2; AT 14,w; " AT 15,w;" 

"+CHR* 14G+CHR* 149+" " ; AT 16, w 
"+CHR* 150+CHR# 151+" " : FOR 
n=0 TO t: NEXT n: OD SUB 1000 
560 BEEP .04,20: PRINT PAPER 7 
: TNK 0; AT 14, w; " “ ; AT 15, w; " 

BAR " ; AT 16, w;" POR n=0 TO 

t: NEXT n: GO SUB 1000 
570 BEEP .04,20: PRINT PAPER 7 
; INK 1 ; AT 14, w;" " ; AT 15 ,w;" 

"+CHR* 152+CHR^ 153+" " ; AT 16, w 
; " "+CHR^ 154+CHR^ 155+ " FDR 
n=0 TO t: NEXT n: GO SUB 1000 
900 GO TO 500 
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IBS® LET CQIìt-Cant+ii LET w-w+S: 

IF w=29 THEN LET w=5 
1005 IF t=ont=27 THEN SO IO 1200 
1007 IF cont >15 THEN LET t=t+t 
1100 BEEP .04,20: PRINT PAPER 7 

; INK 0;AT 14, w; " :AT 15,w;" 

" s AT 1 6 , w ; " F : FOR n=0 TO 
t-1: NEXT n: RETURN 
1200 LET 1 = 1; LET w=S 
1205 DÌM a£3> 

1210 IF i=4 THEN GO TO 2500 
1230 LET am = lNT (RND*33>+1 
1240 GO SUB 1100 
1 250 80 TO 2000+a £ i > 

2001 BEEP ,04,20; PRINT FAPER 7 
: INK 0; AT 14, WS "BAR ■' ; AT 15, w; 1 
ÈAR " ; AT 16,w;»ÈAR "i LET i-i+I; 

LET w=w+Oi FOR n = I TO 50: NEXT 
rr: SO TO 1210 

2003 BEEP .04,20: PRINT PAPER 7 
; INK 0 ; AT 14, h; "BAR “;AT 15, w; « 
“ ; AT 16 ,w; "BAR " : LET j=£+ls 
LET w=w+Q: FOR n^l TO 50: NEXT 
n: GO TO 1210 

2006 BEEP .04,20: PRINT PAPER 7 
; INK B; AT 14,1-s» "jAT 15, w;" 
BAR ri ; AT I6,w|" iJ ; LET i=i+i: 

LET w=w+B: FOR n= 1 TO 50: NEXT 
ni GQ TO 1210 

2010 BEEP .04,20: PRINT PAPER 7 
; INK 2; AT 14, w; " ";AT 15, w; » 

"+CHR4 144+CHR4 14S+" ";AT 16, w 
... -. + c HRj : 146+CHR^ 147 + " LET 

*=i+l: LET w~M+0: FOR n=l TO 50; 
NEXT n: GO TD 1210 
2015 BEEP .04,20: PRINT PAPER 7 
; INK 2;AT 14, w: “ " ; AT 15, w; " 

N +CHR4 14Q+CHR4 149+" ‘;AT 16,« 
; » "+CHR4 150+CHR4 151+" w : LET 
i=i + l! LET w=w+S: FOR n= ì TO 50: 

NEXT n: 0O TO 1210 
2021 BEEP .04,20: PRINT PAPER 7 
; INK 4; AT 14,w;“ J, ;AT 15,wS M 
"+CHR* 156+CMR4 145+" ":AT l6,w 
j" "+CHR4 146+CHR* 147+" " = LET 
i*i+tì LET w=w+G: FOR n=l TO 50; 

NEXT n: GO TO 1210 
2027 BEEP .04,20: PRINT PAPER 7 
; INK 2$ AT 14, w;" ";AT 15, w: " 

» +CHR$ 157+CHR$ 15B+" 11 : AT 16, w 
! 11 “l LET i-i + ls LET w=H+S; F 
OR n=l TO 50: NEXT n; GG TO 1210 
2033 BEEP . 04 s 20; PRINT PAPER 7 
; INK 1 ; AT 14,w; ,r r| ; AT 15,*; » 
"+CHR* 152+CHR* 153+" AT l6,w 
"+CHR4 154+CHR4 155+" LET 
>=i+l; LET w=w+B: FOR n-1 TD 50 s 
NEXT n: GO TD 1210 
2500 BEEP .1,25: BEEP .1,20; FOR 
1=1 TO 3 

2505 IF a (i > >1 AND aHK4 THEN 
LET ati>=2 

2510 IF a£i>>3 AND atil<7 THEN 
LET a£i>=4 

2520 IF a £ i ) >6 AND adKll THEN 
LEI a ( i )*=7 


2530 IF a £i J >10 AND a£iXlò THEN 
LET aUXll 

2540 IF ali 1 >15 AND a(iJC22 THEN 
LET a ti >=16 

2550 IF a ( i > >21 AND a*iK2B THEN 
LET a t i > =22 

2560 IF a C i > >27 AND ati)<34 THEN 
LET a£i >=2P 
2570 NEXT i 

3000 LEI punt=0; LET d=ta<l)=a(2 
> >+(a<2>=a(3J ) + £a(l)=a£3> > 

3020 LET e=£a<l)=a£2> ) 

3030 IF e=0 AND a { 1 1-1 1 THEN LE 
T punt=2: PRINT FLASH la OVER 1 
; AT 1,2;" " ; AT 2,2: " ■ 

"2 GO TO 5000 

3040 IF e=0 AND aU)=7 THEN LET 
punt=3= PRINT FLASH 1; OVER 1; 
AT 3,2;" ":flT 4,2: " 

"i SO TO 5000 

3050 IF e=l AND a ( 1 > =11 AND at3> 
Oli THEN LET punt=5: PRINT QV 
ER 1; FLASH 1 ; AT 5,2; " 

,k ;AT 6,2; " GO TO 

5000 

306B IF e=l AND a£l>=7 AND a£3>< 
>7 THEN LET purvt=10: PRINT OVE 
R 1: FLASH 1 ? AT 7,2;" 

"£AT 8,2; " »! OD TO 

5000 

3070 IF d=3 AND a£3>>15 AND a*3> 
<29 THEN LET punt=25; PRINT GV 
ER 1; FLASH 1;AT 9,2;“ 

";AT 10,2; " GO T 

0 5000 

3000 IF d=3 AND a<3> = U THEN LE 
T punt =50: PRINT OVER 1; FLASH 

1 ; AT 1,14;» "iAT 2. 

14;" H, s GO TO 5000 

3090 IF d=3 AND a£3>=7 THEN LET 

punt=100: PRINT OVER 1; FLASH 
1 ; AT 3,14; " ,P ;AT 4, 

14 i " "j GO TO 5000 

310B IF d=3 AND a <3)^4 THEN LET 
punt=250: PRINT OVER 1; FLASH 
li AT 5,14;" AT 6, 

14; " " : GO TO 5000 

3110 IF d=3 AND a£3>=2 THEN LET 
punt— 500: PRINT OVER 1; FLASH 
1 ; AT 7,14;" AT B, 

14;" ”5 ED TO 5000 

3120 IF d=3 AND a£3>=i THEN LET 
punt -1000: PRINT OVER 1; FLASH 
1 ; AT 9,14;" AT 1 

0,14;» **;AT 11,14;* 

"2 SO TG 5000 


5000 LET soI=z»purrt 
5010 IF sol=0 THEN PRINT AT 20, 
9; PAPER 2; INK 7; FLASH 1 ; "HAI 
PERSO " ; z : ■ FOR n=l TO 300; 

NEXT n: GO TO 5090 
5020 PRINT PAPER 2; INK 7; FLAS 
H 1 ; AT 20,8; "HAI VINTO » ; sol ; " « 
”i LET doll-dDll+soI: FOR n=l TO 
300: NEXT n: GQ TO 5100 
5090 IF dpi 1=0 THEN GO TD 5200 
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5100 PRINT AT 20, B:" 

"jAT 21,0; PAPER 7 ; IN 
K 2;" PREMI < Z l PER UN'ALTRO 
TIRO" 

5120 IF lNKEY4="z " DR INKEY^'Z" 
THEN PRINT AT 21,0?'* 

GO TO 3 

28 

5130 GO TO 5110 

5200 PRINT AT 19,0; "HAI PERSO TU 
TTI I TUOI SOLDI M 'PREMI S PER 
UN ALTRA PARTITA PREMI N PER 
SMETTERE 

5210 IP INKEYS»="9" OR INKEY4™ "s ri 
THEN GO TO 30 

5220 IF INKEY$= J, N" OR INKEY*^ <a n M 
THEN STOP 
5230 OQ TO 5210 
6000 CLEAR 

6010 SAVE ‘SLOT MACH. " LINE 100 
6020 STOP 

Accordi per 
la chitarra 

0>REM 

* SCRITTO E REALIZZATO DA* 

* * 

* DONATI MARIO * 

* VIA CLAUDIO ASELLO 7* * 

* 00175 RDMA * 

* TEL. 06/7660227 * 

* * * *** * *« #■** * * «-«-fi-####*# # ** 


10 POR f =USR "a" TO USR "b"+7; 

READ a: POPE f.as NEXT f; DATA 
60,126 ,255,255 , 255 , 255, 1 26 , 60 , 24 
,24 ,24, 24,24 ,24,24,24 
15 LET W*=" 

M ; LET FLAG=0 
20 GO SUB 2500 
30 POKE 2365S , 0 
40 GO SUB 2520 

45 LEI q4=CHR4 144: LET r$=CHR 
4 145 

50 PRINT AT H,0; 

menu 

60 PRINT '"t> > ISTRUZIONI 11 ' 

" 2 > > GIRI ARMONICI" “ ”3) > A 

CCORD ATURA " ' " 4 > > PREPARAZIONE 

iLr,, 5 >---> ACCORDI" 

70 INPUT — > ‘iQ* 

75 LET 0=VAL 0* 

00 GO TO <100 AND D=l)+t200 AN 
D 0=2) +C 300 AND 0=3 ) -i- < 400 AND 0= 
4>+f500 AND CN5>+<70 AND 0>5)+C7 
0 AND Q<=0) 

100 GO SUB 2500 

110 PRINT AT S,D; IS 

TRUZIONI ######*###" 


120 PRINT "SIGNIFICATO DEI SEG 

NI:" > POSIZIONE DELLE 

DITA" ' * SULLA TASTIERA" ' ' r 

q$ r r4+" > BARRE ' " 'rt+" — > ( 

TUTTE LE CORDE PREMUTE" ' " 

CON LA PRESSIONE DI UN 11 

> SOLO DITO) " 

13© PRINT tt0 ; rj X PER CONTINUARE 
€ COPY M MENU" 


140 

IF 

INKEY*="" THEN 

GO TO 

14 

141 

IF 

INKEY*= W M" THEN 

GO TO 

1 

142 

IF 

INKEY4="C" THEN 

COPY 

i 

GO TO 140 



143 

IF 

INKEYS^X" THEN 

GO TO 

l 

45 





144 

GO 

TO 140 



145 

GO 

SUB 395 



150 

PRINT AT 10,0: "NOMI 

E NUMER 

I DELLE 

CORDE" 



160 

GO 

SUB 1000 



170 

PRINT #0:"V PER RIVEDERE 

M 

PER MENU C CDPY " 



1G0 

IF 

INKEY*^" " THEN 

00 TO 

ia 

105 

IF 

INKEY4="C JJ THEN 

COPY 

; 

GO TO 100 



190 

IF 

INKEY4="M" THEN 

GO TO 

1 

195 

00 

IF 

lNkEY4=" V" THEN 

00 TO 

i 


196 G0 TO 1E0 

200 LET FLAG ±± 0 ; GO SUB 2500 
205 PRINT AT B,0; "tttttttttttttttttt GIR 
I ARMONI d ######## '■ 

210 PRINT AT 10,0; "l>-> DQMAG" ' 
"21 — > REBMAG" J "3> — > REM AG 4) -> 

MIBMAG" J "5>-> MIMAG" ' "6>-> FAMA 

G""7>-> SDLBMAG S)-> SOLMAS" ' 

rj ?>-> LABMAB 10)->LAMAG 11)~ 

>SIBMAG 12WSIMAG" 

211 INPUT Z4: LET FLAGRI: LET l 
—VAL Z4: IF Z<1 OR Z>12 THEN GO 

TO 211 

212 FOR F=10 TO 21 z PRINT AT F, 

NEXT F 

215 IF Z=1 THEN RESTORE 2000: 
READ A4 ,B4 : LET Z*="DOMAG M : PRIN 
T AT 9,0; "lo ACCORDO GIRO Di D 

0 MAG, GO SUB 520: RESTORE 205 
5: READ A4, BT: LET Z4="LAMIN"; P 
RI NT AT 9,0; "2": GO SU© 520; RES 
TORE 2012: READ A4,B$; LET Z4=’R 
EMIN"; PRINT AT 9,0; "3"; GD SUB 
520: RESTORE 2045: READ A4.B4; L 
ET Z4="SQL7" : PRINT AT 9.0: "4": 
GO SUB 520 

216 IF Z=2 THEN RESTORE 200ói 
READ A*,B$s LET Z*= " RÈBMAG ‘ : PRI 
NT AT 9,0; "io ACCORDO GIRO DI 
REB MAG. ": GD SUB 520: RESTORE 2 
061: READ A4,B*: LEI Z*="SlBMlN'’ 

1 PRINT AT 9,0; "2": GO SUB 520: 
RESTORE 2019; READ A4,B4: LET Z* 
="MIBMIN": PRINT AT 9,0;"3": GO 
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SUB 520 j RESTORE 2051: READ A*, 6 
$: LET Z*="LA07": PRINT A T 9 t 0; ,p 
4 PP : GO SUB 520 

217 IF 2=3 THÉN RETTORE 2011: 
READ A$,B:t: LET Z$= CREMAR ": PRIN 
T AT 9,0; 'lo ACCORDO GIRO DI R 
E MAC. GO SUB 520; RESTORE 206 
7: READ A*,B*: LET Z*= ia SlMIN"i P 
RINT AT 9,0; "S" : GO SUB 520; RE3 
TORE 2025: READ A$,B£: LET Z*="M 
IMIN H ; PRINT AT 9,0; "3": GO SUB 
520: RESTORE 2057: READ A*,B$: L 
ET Z*= ,r LA7 p ': PRINT AT 9,0: 11 4"; G 
D SUB 520 

21 e IF 2=4 THEN RESTORE 2010: 
READ A*, ET: LET ZT= "MEBMAG”: PRI 
NT AT 9,0; “ lo ACCORDO GIRO DI 
MIE MAE. p " s GO SUB 520 s RESTORE 2 
001; READ AT.BT: LET ZT='D0MlN p ': 

PRINT AT 9,0; “2““: GO SUB 520: R 
ESTORE 2031: READ AT,BT: LET ZT= 
"FAMtN 11 : PRINT AT 9,0; ,C 3 U : GO SU 
B 520: RESTORE 2063; READ AT*BT: 

LET ZT="SIB7 P| : PRINT AT 9,0; ,r 4" 
; GO SUB 520 

219 IF Z=5 THEN RESTORE 2024: 
READ AT.BT: LEI Z*="M I MAS 11 ; PRIN 
T AT 9 , 0; " 1 9 ACCORDO GIRO DI li 
IMAG. GO SUB 520; RESTORE 20S9 
; READ AT,BT; LET ZT= ir DO#MIN ,p : P 
RINT AT 9,0; "2"; GO SUB 520; RES 
TORE 2073; READ A*,BT: LET 2*="F 
A#MIN p1 : PRINT AT 9,0;““3“ k i GO SUB 

520: RESTORE 2069: READ A$,BT: 
LET ZT= 3, SI7”t PRINT AT 9,0; "4 "s 
GO SUB 520 

220 IF Z=6 THEN RESTORE 2030: 
READ AT , BT : LET ZT='' FAMAG " : PRIN 
T AT 9,0; "lo ACCORDO GIRO DI F 
A MAG. 11 : GO SUB 520; RESTORE 201 
2; READ AS,B$; LET 2$=“' REM IN” : F 
RINT AT 9,0; "2' 1 z GO SUB 520: RES 
TORE 2043: READ AT , BT : LET Z$= IP S 
OLMIN": PRINT AT 9,0; “3"; GO SUB 

520: RESTORE 2003; READ AT,BT: 
LET ZT= 11 DO 7"' : PRINT AT 9,0: “ 4"; 
GO SUB 520 

221 IF 1=7 THEN RESTORE 2037: 
READ A* j B$ : LET ZT=‘'50LBMAG r ' : PR 
INT AT 9,0; 11 lo ACCORDO GIRO DI 

SOLB MAG. " : GO SUB 520; RESTORE 

2019: READ AT,BT: LET ZT= p 'Mmm 
N M : PRINT AT 9,0; "2" t GO SUB 520 
; RESTORE 2049: READ AT,BT: LET 
Z^= ,h LABMIN , “ : PRINT AT 9.0: "3 H ; G 
0 SUB 520: RESTORE 2009: READ A* 
,B 4: LET ZT= r, REB7”: PRINT AT 9,0 
; ‘“4" : GQ SUB 520 

222 IF Z— 0 THEN RESTORE 2042: 
READ AT,BT: LET Z*=" SOLMAG ,h ; PRI 
NT AT 9,0; "lo ACCORDO GIRO DI 
SOL li AG. ,J : GO SUB 520: RESTORE 2 
025: READ AT,BT: LET ZT^MIMIN' 1 ; 

PRINT AT 9,0; "2"; GD SUB 52®: R 
ESTORE 2055; READ AT,BT: LET ZT= 
“LAMIN": PRINT AT 9yÒ; ,p 3“3 GO SU 


B 520: RESTORE 2014: READ A*,B*s 
LET ZT^"RE7"; PRINT AT 9,0; "4”: 
GO SUB 520 

223 IF Z=9 THÉN RESTORE 2049: 
READ A$,B$: LET ZT= "LABMAG H : PRI 
NT AT 9,0; 'lo ACCORDO GIRO DI 
LAB MAG, M : GO SUD 520: RESTORE 2 
031: READ AT.B#: LET 2T=*FAl4lN pfc i 

PRINT AT 9,è:“ 1 2 ,, s GO SUB 520: R 
ESTORE 2061: READ AT,BTs LET 
,p 5IEM IN ,J : PRINT AT 9,0; N 3 ,h ; GO S 
UB 520; RESTORE 2021; READ AT,BT 
: LET 2T=”MIB7": PRINT AT 9,0: ”4 
11 : GO SUB 520 

224 IF Z— 1 0 THEN RESTORE 2054: 
READ AT,BT: LET ZT="LAMAG ,P : PRI 

NT AT 9,0; 11 lo ACCORDO SIRO DI 
LA MAG . " : GO SUB 520: RESTORE 20 
73: READ LET ZT=”FA#l*IN”i 

PRINT AT 9,0; H 2 ,r : GO SUB 520: R 
ESTORE 2067: READ A*,BT: LET Z*» 
"SIMIN": FRINÌ AT 9,0; “3”: GO SU 
B 520: RESTORE 2027- READ A*,B$: 
LET ZT= "MI 7"; PRINT AT 9,0; ”4”: 
GD SUB 520 

225 IF Z=il THEN RESTORE 2060: 
READ A4S,B*: LET Z^-'SIBMAG": PR 

INT AT 9,0; "lo ACCORDO GIRO DI 
SIB MAG. 11 : 60 SUB 520: RESTORE 
2043: READ AT,BT: LET ZT^'SOLMIN 
PRINT AT 9,0; “ 2 ,r : SO SUB 520; 
RESTORE 2001 : READ AT,B$: LET 2 
$=““DOMIN“'s PRINT AT 9,0; “3": GO 
SUB 520: RESTORE 2033: READ AT,B 
$a LET ZT™"FA7 PP ; PRINT AT 9,0; ù 4 
": GO SUB 520 

226 IF Z=12 THEN RESTORE 2066: 
READ AT,BT: LET ZT= J SIMAG ,p i PRI 

NT AT 9,0; 'lo ACCORDO GIRO DI 
SI MAG. GO SUB 520: RESTORE 20 
90: READ A$,B$: LET ZT^'SOLttMIN 13 
: PRINT AT 9,0; “2": 60 SUB 520: 
RESTORE 20G9: READ AT,B*r LET ZT 
= DQ#M IN 11 : PRINT AT 9,0; 11 3“ ; GO 
SUB 520: RESTORE 2075: READ AT,B 
T: LET 2T= U FA#7": PRINT AT 9,0;" 
4” r GO SUB 520 
250 GO TO 200 
300 SO SUB 2500 

310 PRINT AT Q,0; ACC 

ORDA TURA 

320 PRINT AT 10,0; p " LE FASI PER 

L'ACCORDATURA DELLA CHITARRA 5 

ONO 6: ” 

330 PRINT "lì ACCORDARE LA Sii C 

ORDA i LA > A CORISTA PIU'O 

MENO DOVRESTE RAGGIUNGERE' 1 1 JP QUGS 
TA TONALITÀ ' ” s PAUSE 50: BEEP 2, 
-17 

331 PRINT #0;AT 0,0; "UN TASTO P 
ER CONTINUARE C COPY * 


332 IF INKÉYT= 


THEN GO TO 33 


333 IF INKEYT— Pl C ,p THEN COPY 

334 INPUT 11 u : SO SUB 395: IF FL 
AG=1 THEN RETURN 
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60 S 


335 P&I NT AT 10,0; "2 SPREMENDO I 

L So TASTO SULLA 5a CORDA OTTE 

PREMO IL RE (4 a CORDA)"; BEEF 2, 
-12 

340 PAUSE 50 t PRINT ' "3) PREMEND 

O IL 5d TASTO SULLA 4a CORDA O 

T TERREMO IL SQL(3a CORDA)": BEEP 
2,-7 

345 PAUSE 50 j PRINT ' "4) PREMEND 
Q IL 4o TASTO SULLA Ss" ' “CORDA 0 
TTERREMO IL SI <2a CORDA) ' : BEEP 
2,-3 

350 PAUSE 50? PRINT ”5) PREMEND 
O IL 5o TASTÒ SULLA 2a" r 11 CORDA O 
T TERRENO IL Mie < la CORDA) 1 : BEEP 
2 2 

355 LET FLAG=1; SO SUB 331 
360 PRINT AT 10,0; "ADESSO ACCOR 
DIAMO IL" '"MI BASSO (MIb> CON IL 

N '"MI CANTINO itile). DOVRESTE 

RAGG 1 UNGERE QUESTA ,J ' " TON AL ITA': 
■: PAUSE 100: BEEF 2,-22 

365 PRINT 40; AT 0,0; "PREMI M PE 
R MENUS PER RISENTIRE" r "V PER R 
I VEDERE 0 PER COPY" : PAUSE 0 

366 IF INKÉY*=''S" THEN BEEP I* 
-22: BEEP 1,-17: BEEP 1,-12: BEE 
P 1,-7; BEEP 1,-3: BEEP 1,2; GO 
IO 365 

367 IF INKEY*^ M M" THEN SO TO 1 

5 

36B IF IWKEYÌ= "V" THEN LET FLA 
6=0: OO TO 300 

369 IF INKEY$="C" THEN COPY ; 
60 TO 365 

370 GO TO 36* 

395 FOR F— 9 TO 21: PRINT AT F,0 
;W4: NEXT F: RETURN 
400 60 SUB 2500: 60 SUB 1000 
405 PRINT AT B , 0 ; " PRE 

par azione i©ee@4eee u 

410 PRINT AT 10,0; "QUESTO ORAFI 
CO RAPPRESENTA UNA" "PARTE DI TA 
STI ERA DELLA CHITARRA": SO SUB 4 
39 

415 PRINT AT 10,0; "LE LINEE LON 
6 1 T UD I NAL I R AFFRE - " ' " SENTANO LE 

6 CORDE NEL SEGUENTE" ' "ORDINE: Pl : 
60 SUB 489 

420 PRINT AT 10,0; "1 > ~>MI CANTI 

NO 2)“>SI 3 ) — >SOL 4 > — >RE 5) -> 

LA 6 > — >M I BASSO GO SU 

B 489 

425 PRINT AT 10,0; "LE LINEE TRA 

SVERSAL I RAPPRESE N- TANO I TAS 

TI. SO SUB 

409 

430 PRINT AT 10,0; "IL CAPOTASTO 
VIENE DETERMINATO" '"DALLA POSIZ 
IONE IN CUI SI TROVA" ' "IL DITO I 
NDICE DELLA MANO" 1 "SINISTRA. ESE 
MPID: 60 SUB 4S9 
435 PRINT AT 10,0; "SE IL DITO I 
NOI CE DELLA MANO SX r|r "SI TROVA S 
UL PRIMO TASTO, STI AMO" "SUONANDO 
ALL ALTEZZA DEL PRIMO 


CAPOTASTD ": 

UB 489 

445 PRINT AT 10,0: "SE SI TROVA 

SUL SECONDO TASTO, STIAMO SU 

DNANDO ALL'ALTEZZA DEL 5EC0ND 

0 CAPOTASTO ECC_ . . " ; W*: 

SO SUB 4S9 

450 PRINT AT 10,0; "I NUMERI IN 
BASSO INDICANO "'"IL CAPOTA 

STO. ";W*;U±; 

GO SUB 4B9 

452 FOR F=10 TO 21 i- PRINT AT F, 
0;W*: NEXT F 

455 PRINT AT 10,0; "NEL FROGRAWM 
A SQND MEMORIZZATI" "90 ACCORDI. 

E 'IMPORTANTE RICORDARE CHE I 

NOMI DELLE NOTE " ' " VANNO INSERITI 

CON IL SEGUENTE " ' "SISTEMA: " ' " " ' 
"DO MAGGIORE = 'PPM AG' " ' "DD MINO 
RE = '''DOMIN'" ' "DO SESTA = 'D06'" 

"DO SETTIMA - 'DOT'" ' "DO SETTIM 
A ECCEDENTE = 'D07+' DC MINORE 

SETTIMA = 'D0MIN7'" 

456 PRINT #0; AT 0,0;W$: 8P SUB 
489 

460 PRINT AT 10 f 0: "L ' ESEMPIO PR 
6 CEDENTE VALE PER "'"TUTTE LE 
NOTE. INOLTRE BISOGNA " ' "RICORD 
ARSI CHE NON SI PUÒ " " <PE 

R ES. ) INTRODURRE 'FA'" 

INTENDENDO 'FA MAGGIORE' 

ALTRIMENTI IL PROGRAMMA NON 

RICONOSCE LA NOTA 

W$: W$; "N.B. — > NON METTE 
RE SPAZI QUANDO "'"SI SCRIVE LA N 
OTA..., ";W£ 


R MENU' 

V PER RIVEDERE" ' 

"C PER 

C 

QPY " 






470 

IF 

INKEV$="M H 

THEN 

80 TO 

1 

475 

IF 

INKEY*= "V" 

THEN 

60 TO 

4 

00 






4S0 

IF 

INKEY$= J, C“ 

THEN 

COPY : 


60 TO 465 




485 

GO 

TO 470 




489 

PRINT #0; "C COPY M 

MENU ' X 

C 

ONTINUA 

“ : PAUSE 0i 

INPUT 


490 

IF 

INKEY$="M" 

THEN 

60 TO 

1 


491 IF INK£Y$="C" THEN COPY : 
60 TO 495 

492 IF INKEY^O" X" THEN GO SUB 
1077: 00 TO 4S9 

494 IF INKEY$= I,IJ THEN GO TO 49 

0 

495 GO SUB 1077: RETURN 

500 PONE 23658 .8: GO SUB 2500 

501 PRINT AT 8,0: "########*## A 
SCORDI ############" 

502 IF FLAGRI THEN RETURN 

503 INPUT "Accordo? ";zT: IF 
="" THEN BEEP .2.-20: GO TO 500 

505 IF jHI TO ZJO-DO" AND z*C 
1 TO 2) < > "RE " AND z$fl TO 2) <>"« 
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I" AMD 2=f(l TO 2) < >”FA" AMD z*<l 
IO 2 > < >"SO" AMD z*U TO 2K>"Sr 
N AMD TO 2> < > ,k LA IH THEN PRI 

MT AT 10,3; FLASH 1;”N0N ESISTE 
QUEST □ ACCORDO"; FLASH 0: BEEP 1 
£-10: PRIMT AT Ì0,0 S H*; GO TO 50 

520 FOR F=I TO 91 1 RETTORE 199? 
+F: READ a*,B*: IF A* £ 17 TO >=Z* 
THEN GO TO 530 
525 NEXT F 

527 PRINT AT 10,3; FLASH l;”NON 
CONOSCO QUESTO ACCORDO”; FLASH 
0: BEEP 1,0; PRJMT AT 10,0;W*; 0 
0 TO 502 

530 LET a=VAL a*£l TO 2) ; LET b 
= VAL a*C3 TO 4): LET c=VAL a* (5 
TO 6>; LET d-VAJ_ a*<7 TO B> 

540 LET aa^VAL a* (9 TO 10); LET 
bb=VAL a* <11 TO 12): LET cc=VAL 
a$<13 TO 14); LET dd=VAL a* £15 
TO lèì: LET at=a$ ( 1 7 TO ) 

545 GO SUB 1000 

550 FRINT AT A,B:q$; AT C,D:q$;A 
T AA,BB;q$;AT CC,DD;q$;AT 10,7; N 
ACCORDO P, :AÌ 

555 IF B*£l)='l” THEN LET P=VA 
L B$<2 TO 3); LET 0=VAL B* <4 TO 
5) : LET I -VAL Cè TO 7); LET U= 

VAL B*<B TO 9); LET I I=VAL B*<10 
TO 11): LET UU^VAL B* f 12 TO 13) 
: LET PP=VAL B*fl4 TO 15): LET D 
Q^VAL RM16 TO 17); PRINT AT P,0 
:q$;AT I,U;rf;AT II,UU;r$;AT PP F 
00 ; 

560 FRINT 40;” X CONTINUA C 
COPY M MENU T 


570 IF JNKEY$= ™ ,J THEN GO TO 57 

0 


575 

IF 

INKEY$= H C” 

THEN 

COPV ; 


GO TO 570 




5G0 

IF 

IMKEY$=''M” 

THEN 

GO TO 

1 

S 5S5 

IF 

INKEY$="X ,r 

THEN 

FOR F= 

1 

0 TO 

21: 

: PRINT AT 

F,0; W$: 

! MEXT 

F 

: GO 

TO 

502 




507 

IF 

INKEY$— J, M” 

THEN 

GO TO 

2 


0 

590 GO TO 570 

1000 POR +=0 TO 3: PLOT 0,+ ; DRA 
W 200,0: NEXT f 

1010 FOR f-11 TO 51 STEP B: PLOT 
0-f; DRAM 200,0: MEXT f 
1065 FOR +—59 TO 63: PLOT 0,+s D 
RAM 200,0: MEXT + 

1070 FOR f =0 TO 200 STEP 30; PLO 
T f ,0: DRAW 0,63; NEXT f 
1075 FOR F=15 TO 20: FRINT AT F, 
25; t 14 1 “Mie u AMD F= 1 5) + £ "2-SI " AN 
D F= lè) +T " 3— SOL AND F=17> + f »4-R 
E” AND F=lS) + (“5-LA f ' AND F^19>+< 
“6-MIb” AMD F^20): NEXT F 
1077 PRINT 40;AT 0,0; n 1 2 3 

4 5 6” 

1030 RETURN 

2000 DATA "1Ó0 20000 18051 909 DON AG 


2Ì01 DATA " 15091 613 1 7161 B16D0M IN 

2002 DATA ” 1 6020000 1S050000DO6”, 

" 0 " 

2003 DATA "16021B0519091709DO7”, 
”0" 

2004 DATA ”00000000 18061 909DO7+" 

2005 DATA ” 15090000 17090000DOM IN 
7 H , H 1 15021 7021 9022002 ” 

2006 DATA ” 16050000 18091 91 2REBMA 
fì’V 1 15021 7021 B022002” 

2007 DATA ”16051 702 18050000REBMI 

m » li 0 il 

200B DATA ” 1 605 1 709 1 809 151 2RE B6 " 
, ,f 0" 

2009 DATA ” 16051B09 151 21 712REB7” 
,”0” 

2010 DATA ” 15121 71200000000REBMI 
N7" , ' 1 1 505 1705 1 B052 005 " 

2011 DATA » 15051 705 16090000REM AG 

■V0” 


2012 DATA ”15021 705 16090000REM IN 
V&" 

2013 DATA 11 1 505 17051 905 1609RE6", 
11 0 " 

2014 DATA ” 16021 505 17050000RE7”, 
" 0 " 

,"11 505 1 705 1 8052005 ” 

2016 DATA ” 15021 602 17050000REM IN 
7" - ”0” 

2017 DATA ” 1 009 191 2000 00000REB 7 + 
”,”11 5021702 1 S022002” 

201B DATA "16121B1Ò00000000MIBMA 
G” , "U 5091 7091 B09 2009” 

2019 DATA ”15051 7091 61 21 812M1BMI 
N” , ”0" 

2020 DATA ” 15091 70900000000MIB6” 
, " 1 1502 1 70218022002 " 

2021 DATA ” 10021 709 16051 509MIB7” 

” 0 ,. 

2022 DATA ” 1B02 150916091 709MIB7* 

2Ó23 DATA ” 1802 1505 1605 1709MI DM1 
N7”, ”0 J 

2024 DATA ” 1 7021 805 L9050000MI MAO 
” ," 0 " 

2025 DA T A 11 1 805 1 90500000000 H I M 1 N 

2026 DATA ” 1512 1 7 1 200000000MI6 H , 
”1 1505 17051 8052005” 

2027 DATA 1 17021 80519051609MI7”, 


” 0 “ 

2028 DATA 

2029 DATA 
7”,”0” 

2030 DATA 


1 1 702 18021 905000 0M 17+ " 
1 1 905000000000000M IMI N 


" 0000 19091705 1S09F Ali AG 
” - 1 1502 1 7021G022002 " 

2031 DATA ‘ 1O09190900000000FAMIN 
" , " 1 1502 1 70218022002 ” 

2032 DATA " 1502 16021 7050000FA6” , 
rj 0 ” 

2033 DATA " 0000 1 61 21705 1 S09FA7 N 
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* 1 15021 702 1S022002" 

2034 DATA " 16021705 1 B090000FA7+" 
■■0 '■ 

7%“ 1 1502 1 7021 002?002^ 0000BFAMI N 

2036 DATA " 1 5051 6051 7051S1 2S0LBH 
I N“ , "0" 

2037 DATA " 1505 160517091 B1 2S0LBM 

AG" «Pjgii 

2038 DATA " 1505 16051 7091 8B2SaLS6 


" 1 6051 70918 120B00SOLB7 
" 1 502 1 605 1 709 1 S 1 2SOLB7 


2É39 DATA 

2040 DATA 

20^1 DATA " 0000000000000000SOLBM 
riM/”, 1 1 1505 17051 00520 05" 

2042 DATA " 1 509 1 90520090000SOLM A 

G IH , P 0" 

2043 DATA " 1B16191600000000GOLMI 
N" » " 1 15091 709 1 8092009 ' ' 

2044 DATA ““ 

Ì045 DATA " 1 502 190520090000SOL7 " 
^046 DATA " 1505 1609 17 121 B1ÓSDL7+ 

N7% ' ? l 509 17091 3092009 00000SDLMI 
2040 DATA " 15 1 71 61 217 161020LABMA 

G p. .-a» 

2049 DATA “ 1820000000BB0000LABM I 

11512171210122012“ 

2050 DATA 

/'li 502 1 702 1 0022002 “ 

2051 DATA 

, lh 1 1502170218022002" 

2052 DATA — 

N7", “1151217121B122012” 

2053 DATA ,h 1 5090000 0000000 0L AB 7 + 
% -11512171218122012“ 

2054 DATA 11 1 605 1705 1 8050000LAM AG 
u , " 0 “ 

2055 DATA “16021 705 1 9050000LAM I N 
" , “0“ 

2056 DATA " 00B000B00000000BLA6 H , 
" 1 I5B51 7051 SB52BB5 “ 

2057 DATA 11 150900B000000BBBLA7 " * 
" 1 1505170518052005 " 

2058 DATA - 1512000000000000LA7+" 
,“11 505 1 70518052005 “ 

2059 DATA Pl 16021705 18051 509LAMIN 
7 11 , rl 0 '' 

2060 DATA ■16091709180900005 IBM A 
G'V 1 1 1502170218022002" 

2061 DATA “1605 17 B9 18090000 SISMI 
N " , " 1 1 502170218022002" 

2062 DATA “ 190200E0000BBB00SIBÒ 14 
, H 1 1509 17091 809 2009 11 

2063 DATA “ 1 51 200530000000005107 11 
, 11 1 1509170918092009" 

2064 DATA « 1 705 16091 8090000SIB7+ 
'■ * " 1 1 502 1 70218022002" 

2065 DATA " 1 605 1 709 1809 1 5 1 2SIBMI 

M7" "0'p 

2066 DATA " 1 6 1 21 712 IBI 200005 EMAG 


V' 1 15051 705 1S052005 11 

2067 DATA “ 1 6091 71 2 18 1 20Q00S IMIN 

2060 L DAtÀ 70 1905000^0000000SI6 " 

11 1 15 12 17 1218 1220 12 1,1 

2069 DATA '1802150517051905817", 
■' 0 “ 

2070 DATA "1709161218120000517+" 
^ “1 1 505 1705 1 9052Bg5^^^ oaw 05IMIN 

7" , “ 11505170518052005“ 

2072 DATA "170918i2191200®BFA*MA 
G", “11505170518052005“ 

2073 DATA “ 181 219 1200000000FA4MI 
N 11 , “Il 505170518082005“ 

2074 DATA “ 150216091 7051 S09FA#6" 

Ì075 DATA " 1 709 19 1 21 6160000FA#7" 
,“11505170518052005" 

N7 “ , ■' 1 1 502 1 702 1 8022002 

2077 DATA " 1502 16051709 IBI 2FA#7+ 


2078 DATA 

£ Il «Pg)«l 

20 Ì9 DATA 
N6","8“ 

2080 DATA 
6“ "0“ 

2081 DATA 

Né " , “ 1 15021 7021 B0220B2" 

2082 DATA " 1 5091 71 2B0000000MI M IN 
6 14 , 11 1 1502 1 702 1 8022002 " 

2083 DATA " 1 502 1 602 1 70 20000F AM I N 

20§4 DATA "1509 16091 70900008 OLMI 
N6 "-“Il 505 1 705 1 8052005 “ 

2085 DATA " 1 502 i 7021 S020000L ASMI 


“ 1 602 1 8 0200000000 DOM I N 
M 1 70218021 9052005REBM I 


“ 1 502 1 70500000000R8M EN 
“ 1 505 1 7 09000 00000 M 1 SM I 


NÒ" , “0“ 

2086 DATA " 1 Ó02 15051 705 1S05L AMI N 
6 14 , 0 " 

2087 DATA ' 1605 15091 709 IS09SI MIN 
6 " ■ " 0 “ 

2088 DATA " 1702 15051 9050000SI MIN 
6 " ," 0 " 

2089 DATA n 1616 17201 82000 00DG&MI 
N" ,"11512171218122012" 

2090 DATA "1720182000000000SDL#M 
IN",“ 11512171218122012" 

2500 CLS : PRENT " ###*########**# 

* atti» # # turni# c 

H I T A R R A" 4 ' "##### *#####*### 
111111*11111 #111# “ 

2510 RETURN 

2520 FOT F=7 TQ 21: PRINT AT F ,0 
;W*: NEXT F 
2530 RETURN 


Numeri in 
virgola mobile 

1 LET q=PEEK 2 3637+256 +PEEK 2 
3633+5: GG SUB 2E0 
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2 REM ///***//y**+// /***/// 

10 CLS s PRINT AT 2,2;"CONUERS 
IONE DEC— Fp " ; AT 5,2; "decimal e" ; A 
T 7,2; 11 FP fui 1 ,r ; AT 9,2; 'FP cern ipr 

20 DIM f (5) 

30 PRINT # 1 ; AT 0,0; "numero Dee 

- Full - Campr", " (D-F-C = > 
PAUSE 0; LET k$=CHR* PEEK 23556 
40 IF x*="D" THEN INPUT "imine 
tti il numero decimale’"," “ > ";d 
: PRINT AT 5, 13; dì GO TO 110 
50 IF x THEN GO TO 70 
55 3 F xtOT" THEN ECl TO 30 
60 INPUT "immetti in decimale, 

una per volta, le 5 cifre de 
I numero full Fp ;=>' K ;f < 1 ) ; " " 
;f£2*;" l, jfC3>s" ";f<4>;" " ; f £5> 
65 PRINT AT 7,Ì3;f<U;'' “ jf <2> 
; u "' ; f (3J ■ " ";f(4);" ";f<5>: GO 
TO 120 

70 PRINT AT 9,13;: FQR n = l TO 
5: INPUT "'immetti in decimale, u 
na per volta, le 2... *5 cifre 
del numerDcompr . FP, o solo ENTE 
R quando s r completo => " ; LINE 

5i$ 

75 IF x^"'' THEN GO TQ 80 
77 PRINT k*;" POKE q+6+n,V 

AL NEXT n 

S0 TF n<3 OR PEEK (q+7)=l92 TH 
EN PRINT AT 20,0; "numero invali 
do": OD TO 100 

05 POKE q+6+n ,51 : POKE q+7+n,2 
51-n: RANDQMI7E USR <q+5) : GO SU 
B 130 

'90 PRINT AT 5,13;: RANDpMIZE U 
SR (q+14ì 

100 PRINT #1 ; "un per cont 

inuare'V'o BREAK' 1 : PAUSE 0: RUN 

110 RANDOMIZE d=USR q: GO SUB 1 
30: SO SUB 140; GO TO 100 

120 FOR n~I TO 5: POKE 23702+n, 
f(n>: NEXT ni GO SUB 140: GO TO 
90 

130 PRINT AT 7,13;: FOR n^l TO 
5: PRINT PEEK (23702+n); " "t : NE 
XT n: RETURN 

140 PRINT AT 9,13;: IF £PEEK 23 
703 < Eli OR PEEK 2 3703 >143) AND PE 
EK 2370700 THEN PRINT "non con 
sentito" : RETURN 

141 LET c=0: FOR n-5 TO 1 STEF 
- ì ; LET f < n > = PEEK < 23702+n ) 

142 IF c< >0 OR f (n)< >0 THEN LE 
T c=c+l 

143 NEXT n 

144 - IF c>l THEN LET c=c-2 

145 IF fCl)<80 THEN LET f { 1 5 
£ 1 > +256 

146 IF iF ( 1 ) >143 OR fUKSl THEN 
PRINT 64*c ; " " ; f CI ) -80; : LET x 

=li LEI c=c+k: SO TO 150' 

147 PRINT f (1 > -80+64+c ; " ";f(2ì 


;: LET x=2 

150 FOR n=l TO Ci PRINT " N ; f (x 
+n) ; : NEXT n: RETURN 
200 REGTORF 

210 POR n=0 TO 19: READ a: POKE 
q+n,a; NEXT n: RETURN 
220 DATA 239,61,193,56,201,239, 

52,0,0,0,0,0,0,0,239,225,56,195, 
227,45 

Scroll orizzontale 


1 LET iniz=P£EK 23637+256*PEE 
K 23638+5= GO SUB 1000; GO TO 30 

2 REM ////////////////////y// 

********#//// f ///////////////// / 


►*******//// 

10 IF INKEV#< >" " THEN 


GO TO 1 


20 GO SUB 200 

30 PRINT AT 2,0;" La routine e 
' stata caricata. Digita il mes 
saggio e dai ENTER. " 

4® INPUT a£ 

50 IF LEN a*<l THEN GO TO 40 
60 LET "+a* 

70 IF INKEY$O k " THEN SO TG 7 

0 

90 PRINT AT 14,0; "premi R per 
un nuovo RUN oppure E per 

uscire. “ 

100 GO SUB 200 

110 IF INKEY$="R 11 OR INKEY$="‘r k 
THEN RUN 

120 IF lNKÈY$<>"q M AND INKEY^O 
"G" THEN GO TG 100 
130 STOP 

200 FDR i^l TO LEN a» 

210 POKE i ni z+ 1 ,CODE a$£i> 

220 RANDOMIZE USR iniz 
230 IF INKEY$< >” H THEN RETURN 
240 NEXT i 
250 GD TO 200 
1000 RESTORE 

1010 FOR q=0 TQ 131: READ a: POK 
E i ni £ +q , ai NEXT q; RETURN 
1020 DATA 62,122,237,91,54,92,30 
,0,111,41 ,41,41, 25 , 235, 14,4, 3* , 3 
1 f 72 , 6 , 4 , 26 , 1 19,36 , 16 , 252 ,19,26, 

6.4.119.36.16.252. 19.124.214.8.1 

03.62 . 32.133 .111.1 3.32 . 229 .6.8.1 

97.33. 127.79.110. 1 .9.128.0. 16.25 
3,13,32, 250,229, 126 , 203 , 23,43,6, 

1030 DATA 203,22 , 43 ,16 ,25 1 , 225 , 3 
7,1 24 , 254 *71, 32 , 237 , 1 98 ,8,1 03 ,12 

5.214.32.111.48.228.33. 127.79.11 

8.1.9. 128.0. 16.253 13,32,250,229 
, 175,6,32,203,22,43, 16,251 ,225,3 

7. 124.254.71 .32.240. 198.8.103.12 
5,2 14,32 ,111,48,231,193,16,1 73 
1040 DATA 201 
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Nef primo articolo un programma 
Pascal era sialo descritto come 
una '"scatola" contenente all re 
'‘sottostatole'';; questi moduli di Ih 
vello inferiore si possono definire 
più propriamente procedure e furi' 
zioni- 

II significato di una procedura o 
di una funzione è simile a quello di 
una subnoutlne basic, servo cioè a 
realizzare delle operazioni che ver- 
ranno utilizzale In diverse parli dei 
programma su dati diversi. 

Una procedura, e analogamente 
una (unzione, possono venire ri- 
chiamale solo dopo fa loro defini- 
zione e solo affiniamo del modulo 
che le contiene. 

Una procedura é costituita da un 
tieader (flg. 1) e da un block (flg. 2) e 
può a sua volta coni onere ia defini- 
zione di altre procedure c funzioni, 
che non possono perù essere utiliz- 
zate dal programma principale par 
la regola visi a prima. 

Chiamata 
di procedura 

A differenza deile subroutines ba- 
sic, le procedure Pascal hanno una 
maggiore generalità di applicazio- 
ne, perché possono venire parame- 
E rizzate. 

I parametri sono il mezzo attra- 
verso il gusle avviene lo scambio di 
informazione fra il modulo che chia- 
ma la procedura e la procedura 
chiamala (flg. 3). Durante la defini- 
zione di una procedure si definisco- 
no le operazioni su parametri for- 
mali. il cut valore verrà poi definito 
ai momento della chiamata dalla 
as&OCiazione posizionale con i pa- 
ramelo situali. 

Poiché lo scambio di informazio- 
ni può avvenire secondo modalità 
differenti, esìstono diversi tipi di pa- 
rametri. 

Parametri 

VALUE 

Servono per passare informazioni 
d all ' am blente eh lam ani e al I a proce- 
dura: i parametri attuali vengono 
copiati localmente dalla procedura 
9 solo II valore di g cesta copie viene 
modificato. Di conseguenza al ter- 
mine della procedura il valore del 
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COMUNICATO PER TUTTI 
I POSSESSORI DI QL 
E PER QUANTI HANNO 
INTENZIONE A DIVENTARLO 


IN OTTOBRE È USCITO 
IL PRIMO NUMERO DI 
QLUB - NOTIZIARIO QL 
RISERVATO IN ESCLUSIVA 
A TUTTI I POSSESSORI DEL QL 
CON GARANZIA ITALIANA. 


SE STAI PER COMPRARE UN QL 
CONTROLLA CHE SIA DOTATO 
DELLA GARANZIA ITALIANA: 
È L'UNICO MEZZO 
PER RICEVERE LA RIVISTA 
QLUB - NOTIZIARIO DEL QL 



IN COLL^iORlAZOJE CON (A 





parametri attuali resi a invariato ri- 
spello a quello della ehi amata (fig. 
4L 

Parametri 

VARIABLE 

Sono il mezzo per lo scambia di 
inlorm azioni fra i due moduli r il 
chi amarne e il chiamato. In questo 
caso i parametri attuali vengono 
modificali e il loro nuovo valore vie- 
ne ritornato al programma, al termi- 
ne della procedura {fig. 6). 

Header 
e chiamata 
di funzione 

L'header di una funzione contie- 
ne Il nome della funzione, una lista 
di parametri ohe sono uguali a quel- 
li visti per te procedure e ri tipo del 
risultato (fig 6>. 

Poiché la chiamata di una funzio- 
ne ha come effetto la produzione di 
un valore risultato, è possibile ri- 
chiamare le funzioni solo all'Interno 
di espressioni. 

Per assegnare alla funzione II suo 
risultato, ci deve essere, all'interno 
del block contenente il corpo delta 
funzione, almeno un assegnamento 
con il nome della funzione sulla si- 
nistra: fn caso contrario II risultato 
di delta (unzione sarebbe iridefinito 
(fig. 7). 

Vediamo ora un esempio di pro- 
cedura senza parametri, che viene 
utilizzata dal programma principale 
per calcolare la somma di un dato 
numero con tutti i suoi predecesso- 
ri: 

PROGRAM 

esempio; 

VAR dL,h ; 

INTEGER; 

PROCEDURE somma; 

YAR c : 

INTEGER; 

BEO IN 

(della procedura) 

a i= 0; 

FOR c s= 1 TO b DO 
a ; + c 


END; 

t del 1 a proc edur a > 
BEBIN 

(del progr smma 
principale} 
b s= 10 ; 

SOMMA 

(chiamata 
della procedura} 
END. 

(del programma 
principale) 


Vediamo anone un programma 
analogo che utilizza però una fun- 
zione: 


PROGRAM ESEMPIO; 

YAR a f b .risultato : 
INTEGER 

RJNCTION SOMMA e 
INTEBER; 

VAR c 2 
INTEGER; 

BEGIN 

(dt-lldi funzione) 
a : = 0; 

FOR c := 1 TO b DO 
a := a + c; 
SOMMA :« a 
END; 

(dell a funsi one) 
BEGIN 

(del programma 
principale) 
a 10? 

risultato := SOMMA 
END. 

(del programma 
principale) 


Vedremo in seguito alcuni eserm- 
pi di procedure e funzioni piti com- 
piesse nel contesici di programmi 
Pascal completi. 


(sentite rag. S'. 

il tulio con il vantaggio di tra- 
sportate un programma in C da una 
macchina all'altra con- modifiche 
minimali. 

Impararlo o no? 

Tutto ciò naturalmente non signi- 
fica che il C sia un paradiso del pro- 
grammatore: essendo un linguag- 
gio a livello medio-basso, non pos- 
siede certe funzioni sofisiicate dei 
basic, è chi * abitualo a questo può 
trovarsi inizialmente a disagio; per 
esemplo, manca un’operazione per 
contornare direttamente stringhe 
di caratteri, e occorre scrivere 
un'apposita (unzione. D'altro canto, 
ciò consente di avero un compilato- 
re estremamente compatto. 

Nè vogliamo a tutti I costi convin- 
cervi della necessità di Imparare il 
C: vivrei e benissimo senza. State 
perù certi che, se volete diventare 
programmatore professionista, nei 
prossimi anni (fino all'arrivo di un 
nuovo standard) farete Inevitabil- 
mente i coni! con l'accoppiata 
C + UNIX. 

Nei frattempo, anche con un umi- 
le Spectrum avete la possibilità di 
familiarizzare con il linguaggio dei 
grandi sistemi. 

Bibliografia 

In Italiano sul "C" sono reperibili 
per il momento due volumi: redizio- 
ne italiana del manuale d' Kernì- 
ghan A Ritchie, gli autori del lin- 
guaggio, che è consideralo la bib- 
foia dei l'argomento, contenente sia 
un'ampia guida all'uso, sia il ma- 
nuale di riferimento per lo standard 
(Jackson 1995, p 229, L. 21,000) e 
"Plogrammare In C”, di C. Nowa- 
kow&kHEPSl 1&&5, p. 139, L 19.000), 
al quale perù dobbiamo muovere un 
appunto prima ancora di vederlo tè 
uscito da pochissimo): ta pubblicità 
esordisce infatti corv "Il C è un lin- 
guaggio di programmazione ad allo 
livello—"; come abbiamo invece 
detto, "il C è un linguaggio relativa- 
mente a basso livello" (Kernighan, 
pag. 1 ed.it.), Questione di punti di 
visi a? 

Altri libri sul G, io inglese, sono 
reperibili presso Se librerie specia- 
lizzate delle grosse città. 

li manuale allegato ai "C tor thè 
Spectrum" della Hl-Soft, peraltro ot- 
timo, è an eti 'esso disponibile solo 
in inglese, 
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Luigi Calidari 


AZTEC 

Fi ve Ways/Mcgibbon 
Spectruffl 48 K 


Una ai) ventura amaienisia nei l'America 
IMtnqoiomiilana. 

il dio sole si e nascosto sulto, terra per mi- 
steriose ragioni e tutto è al buie. El paese ove 
viviamo è illuminalo dalia lece di un vulcano 
ma la gente é sparita e non vi è anima viva, 
apparentemente. La nostra missione consi- 
sto nel ritrovare in sole, seguendo le tracce e 
i suggerì manti delle Straw creatore che in- 
canirla™ nella, penembre.,. evilandu di torci 
uccidere da quelle nemiche, 

La trama tome vedete, é piuttosto uriglna- 
ie e suggestiva, carne sembra essere Buona 
tradizione delle avventure dada Prua Wjys; 
ma, d'altre parte, il software di produzione 
statunitense é generalmente di qual ito supe- 
riore per le richiesto di un mercato piò com- 
petitivo e esigente. 

La particolarità clic rende questo pro- 
gramma apprezzabile anche- dal pubblico 
italiano consiste nel modo con cui si Imparti- 
scono i comandi a- computer' non Itasi in- 
glesi ma pressioni dt lastL-funtìwie. Infatti 
col programma viene tornita una mascherina 
da sovrapporre alta tastiera et» serve a ri- 
cordarci come, ad esempio, pigiando '2 J ci 
Si muove in avanti [sul video compare “MQ- 
V£ f OFWAFiD' ') a col tasto e possibile 
colloquiare eolie altre creature, lì quindi so- 
lamente in questo caso che- bisogna avere 
una buona conoscenza della lingua inglese 
per comunicare col computer 

■Pregevole È anello la grafica- a ogni mos- 
sa viene Bifettuata to preserrlaziotie in Ire di- 
mensioni delia scena visto, molto suggesti- 
va e Minila, 

?l pregrecrma viene fornito completo di 
amjiie istruzioni per l'utilizzo e di una map- 
pa della scena, Curiosa particolare de! ma- 
nuale è che spiega anche coma bisogna pre- 
parane le cartine per la riseiuìtorie dtìfl 'av- 
ventura. 

Certamente queste è una delle avventure 
piò consigliabili per il pubblico italiano, sto 
per il modo di tonziorramento, sia per la gra- 
fica e l'originalità. 

Grafica: Suggestivo, conti sua, tris ime n - 
stonale 9 

Comandi: Pressione’ di testi-funzione. 
Mascherina tornita. 9 

SocaDiliiài Elevala, possibilità di sospen- 
sione a Sàyé sif cassetta. 9 
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BYTE 9ITTEN MATCH 0AY 

Firebirt) OCEAN 

Spectrunn 48K Spectrum 4M. 


Questo programma tonasse ai due giaciti 
differenziati e telati da una tanno riama: 
varremmo giocare a Sea King, il nostra vl- 
deogioco preferito, ma i nostri familiari sono 
molto savori e non lo permettono si (tettò non 
avremo me&so in ordine la ca&a. Cosi si de- 
ve girare per lo varie stana (schermi) alla 
ricerca di ometti da riportene nella nostra 
csmerelìa. Ciò comporle II movimento attra- 
verso mille percoli, rappresentati da asporti 
e girane creature che ci danno la cascia (ma 
davo viviamo?) per ucciderci . Il giocatore 
deve quindi possedere una buona vociti 
nelle Pile a un poso di memoria per ritrovare 
la strada del ritorno. 

OampielalQ il nostro dovere possiamo se- 
derci davanti al nostro amalo Spectrum e In- 
cominciare a giocare. 

Sea King è una. battaglia del nostro elidei- 
tereeoniraaiin velivoli, giocata sopra un az- 
zurra mare iniestoto da navi portaerei 

Sulto schermo vediamo: Il campo di gioco 
(2/3 ve! video}, un «dar 3 lunga raggio ode 
permette di prevedere l’arrivo dei nemici, il 
punteggio attuale, il punteggio migliore, il 
numera ditemi ("vile ") rimasti, un indica- 
tore della tose di gioco e lino del carburante 
rimasto, 

Durante la tanaglia II carburante si esau- 
risce molto rapi (Sapiente, perenti dotammo 
sovente rientrare sulla plància di una par- 
lerei per "fare il pieno", stando aitanti e 
non planare troppo velocemente, per eviterà 
urto schianto. 

1 m^etoie nte è possìbile scegliere tra una 
ver staio completa del gioco, composte date 
due fasi descritte, oppure giocare dolca- 
mente ccn l'elicottero da guerra. 

La grafica è piirltesto stilate, specie 
nella prima lase. ma proprio per questo fi 
molto veloce. 

1 comandi semplici fi abbastanza efficaci, 
consistenti in 7 tesi! (comprasi quelli per la 
sospensione del gioco e dell'accompagna- 
mento sonoro) in 2 combina lam. E previste 
I ' utilizzo opzionale dell'interino II Sinclair 
oppure dei Joystick Kémpston. 

Grafica : semplice rra vetoce 6 

Comandi, semplici ma validi. 2 combina- 
zioni di tesi; Joystick. 5 

Biocab ititi: ukisigtiaio agli amanti del 
"futtogriitetto" 6 


Simulazione di partito di cateto ira, due 
squadra avversarie di £ giocatori, una delle 
pati pud essere mossa 0 da! computer 0 da 
ito secondo giocatore. 

Esiste soltonte un'altra versione di questa 
simulazione paragonarle a Malclt Day. ed fi 
"World Clip" dalla Am, di qualità molto 
iniartora. 

Durante fi fiteH s\ controlla il movimenta 
dei discatore piti vicino alte sfora con a ta&i 
(direzione ortogonali e facendo, sfamare le 
pedate con un altra tosto oppure radi bottone 
di "fuoco" del joystick. 

Timi gli altri giocatori seno mossi dal 
bwnputor. Nel caso sia necessaria battere 
un " corner" 0 una rimossa intera» muovia- 
mo sempre II giocatore incaricate dell'allo- 
ro. 

La -cosa cito richiede siciframentP piti alle- 
namento ti II modo con cui si lieve passare la 
palla a qualche tompagw: per molto tempo 
si passerà al giocatori avversari cito corre- 
ranno veloci e sicuri simun rete. 

Possiamo Ussaro il Uveite di abilità degli 
avversato cori mi lati da! computerò fa durato 
del due tempi; l'orologio è sempre vistale 
sullo setaruno ma non rappresenta realmen- 
te I minuti di gioco. 

tiri ditello abbastanza grave consiste nei 
portiere, che dovrebbe automaticamente 
scattare per te parata quando un avversario 
off attua qualche tiro in porta; in Match Day è 
rarissima vedere I portieri muoversi per in- 
teroettare te pana. 

1 due autori del programma sono riden- 
temente amanti delle inutili sofisticazioni' 
per ridettene r tasti compare nientemeno 
che una visione tridimensionale della testie- 
ra dello Sped-tom, con lastl che si accendo- 
no quando selezionati con un complesso si- 
stema a piti tasti. Quando i giocatori scendo- 
no in campo, inoltre, viene data una visione 
a caratteri giganti de la uscite dagli spoglia- 
toi, tipo riessa televisiva. 

È p&ssJbile dare alle squadre i nomi- prefe- 
riti, selezionare 1 coleri di campo e magliet- 
te. e giocare su p ò livelli di abilità. 

Branca : l carotieri sono un po' piccoli Ote 
ben mossi, 8 

Domandi : rlderfteibil i d joystick . 7 

Gioca dito; vari livelli dt gioco. 7 



Jumbi* * certamente fi ptv sofisticato 
"puzzte : ’ grafico computerizzalo disponibi- 
le ser Spectrum. 

Sullo sclteritw viene presentato un dise- 
gno suddiviso in 20 bioccìi? quadrati uguali . 
Il programma provvede a mescolare (In ta- 
g'ese appunto |uutb3*) te figura, eliminando 
un biseco e spostando tutti gli altri. Chi co- 
nosce il famoso "Gitoti del Quindici" avrà 
itotelo l'evidente somiglianza. 

Passiamo usare 5 tasti (rifleSinf&ili) 0 joy- 
stick per spostare il blocco vuoto e ripristi- 
nare, spingendo gl altri, li disino in un 
numero massimo di mosse fissato dal com- 
puter di volte in volta, in tace alle difficoltò 
del disegno e del numeradi puzzle giti .risoffi 
dsS giocatore. Se si sosterà questo limite il 
computer ci squalifica. AHrimerafi ci irtene 
dado il nome di un altro disegno, piti diffici- 
le. 

intetti li giocatone ss; aziona i vari quadret- 
ti grafici battendone il tome; iniiiaimevile ne 
sono nodi saliamo tra (nursery, lettere e 
funWh $n altri vengono svelati risolvendo 
queli di rivedo interiore. 

fi compite dal giocatore divelto molto ar- 
duo dopo la seduzione dei primi ire 0 quattro 
puzzle. (Sebbene sia possibile rivedere in 
ogni istante te figura riordinate, ti molto dif- 
ficile Trovare la sequenza di spcstementi 
corretto par riordinare il lutto; spesso una 
(mossa che colloca Esaltamento due pezzi ne 
poni in dts&fdini garrì £. 

Inoltre spesso ì pezzi vengono mescolati 
in maniera diabolica: facendoli scorrere da 
uir bordo ali' atira <telia scacchiera. Altre vol- 
te si muover 3 da soli durante il gioco, e 
sempre cambiano di odore. 

Jum&fy, diciamo per concludere, ti un 
gito! insalilo ed originale,, consigliato ag i 
amanti dei picchi ni riflessane tra ■ 7 ed i 70 
anni, purché datati di ottimo saif-corilret, 
per non mettere in pericolo r integrità dello 
schurmo u tiEl computer 
franca: vari disegni Pori fato, casari un 
po' troppa vivaci, 7 

Comandi : tasti 0 joystick (consigliali) . 7 
Gitcadfiite; difficolti pr&gyassiva ed ele- 
vata all'Inizio. & 
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r ALHALLA 

EGEND 


Vallata È un gioco di avventure véramen- 
te (mira m sud genere e tuttora Insuprcalo 
neila malica semovente, ssbbsne sia stato 
realizzato nef 1933 da un greppo ci fl pro- 
grammatori. 

Per "grafica samovgflie" intendiamo il 
fatto che esiguo ned monta tal Vaibai la un 
mucchio d esseri che si 'muovono por i Fatti 
Fora, ciascuno datalo di prepria personalità, 
d Ohe possiamo realmente mdtft '"vivere" 
sullo setermo, in lempo reale. Come dice, a 
regione, il mancala d'uso di 30 pagine, 
"Valhalla" pud assiste ore di diverti- 
mento, soltanto stanta ad assister* agli av- 
venimenti che si svolgono parallelamente al- 


le nostre ararli, -nell' infinito numero di loca- 
zioni visitabili. 

li nostra compito e di trovare 6 aggetti Fal- 
si nascosti, individuabili solo in una coda 
sequenza, eh* possono fisserà anche in 
possalo di pelota personaggio mitologia 
do, oppure celati in qualche scrigno o luogo 
oscuro. 

Vi e un numero Impf eclsato di locatiti vi- 
sibili, ciascuna eoo una gràfica molta gra- 
davate e suggestiva, anche se ovviamente 
motte locazioni differiscono colo per palelle 
parte tiare tre di (ore. 

I 33 esseri Pi VaJhaMa , ciascuno col suo 
nome e con le Sta caratteristiche di 
bontà /malvagità, abilità nella tolta, intelli- 
genza e generosità, riportale nes manuale, 
sono divisi m «buoni» e cattivi», fi possia- 
mo alte ara ora «n gli uni ora con gii altri. 
Sono: cani, (fragili, uccelli, serpenti, semi- 
dei e senwfee, del. 


tl programma dispone di un vncaitolario 
con mimare impreeisato di sostantivi e con 
36 verbi/ comandi tra I guati alcuni che ci 
permettono d comuntcare, chiedere aiuto, 
trattare con gir altri personaggi. 

Vi sono anche 21 Tipi & oggetti dissemi- 
nati , tra I gitali armi di offesa e di difesa e ti- 
po; quando impartisce frodine "*at Food" fi 
nostre omino realmente estrae il cita e lo 
pone ir bocca! 

fi iunfitaaraento dei 23Kdi basic e 12K6 
assembly t una specie (fi multitasking.; 6 
passibile invilire comandi pereino mentre 
un sfitte è ancore da eseguire a mentre sul 
video si sta lottanda e- facendo qualcosa. 

Grafica: animarla, ssetagraiica, varia, co- 
loratissima, ottima. io 

Comandi; bisunta! di comandi con editar 
di sintassi dei comandi. g 

Giocatili!!: Ito gioco sempre nuovo, so- 
spetaiblia su maire. io 
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9909 INPUT "SALVARE □ PRINTARE ( 
3/P> "jsits IF AND slO'^p 

Fr AND s*<>“0“ AND B*<> ,, p n THEN 
SD TO 99S9 

9990 INPUT "'DAT I PRECEDENTI (S/N 

> X F d*<>“5" AND d*<>"n" A 

ND d*C>"9 fl AND dtO"N" THEN 80 
TD 9989 

9991 IF OR d$="S M THEN F 

DKE 50260, PEEK 58000; GD TD 9997 

9992 INPUT "RIGA " ;r : POKE 50000 
»r 

9993 INPUT "COLONNA 

9994 INPUT “LARGHEZZA ASSE " 

9995 INPUT 'ALTEZZA ASSE n 'Y' 1 ' "sa 

9996 POKE 58260, r: POKE 58261 ,c: 
POKE 57773 , 1 : POKE 57766 t a 

9997 IF s" OR THEN P 

□KE 57792,64? GD TG 9999 

9998 POKE 57782,74 

9999 RANDOH3ZE USR 57700 


Errata corrige 

Ne/ commento si programma 
WfNDQW pubbffcfitu suiio scorso 
numero si faceva riferimento a un 
programmino baste di serVi2io, che 
doveva servire a esemplificare t'uso 
delie routine Per un incidente tec- 
nico ri fistato di questo programma 
no è rimesto esc/oso. Lo putititi- 
chiamo qui a fianco , 
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Numeri In 
virgola mobile 

di Giovanni: Manina 



”1 dati numerici trattati dai calco- 
latore In virgola mobile sono sem- 
pre nel tomaio a 5 byies. delio ap- 
punto fiuating point, ma nello- Spec- 
trum si distinguono due possibili 
rappresentazioni: 

■ tisi! ffoatlng point „ valida per 
qualsiasi valore intero o decimale, 
compreso Ira 0.29367359E-36 e 
1.701+3&: Il primo dei 5 bytes è 
l'esponente, gli altri istituiscono 
la mantissa; 

- forma semplificete, usata per 
numeri compresi tra — $553$ e 
+ 65535, in cui il primo e II quinto 
byte sono sempre zero, il secondo A 
0 per I numeri positivi e 255 per i ne- 
gativi, il terzo e ii quarto sono, 
nell'ordine, Il byte meno e più signi- 
ficativo dal numero reale, se e posi- 
tivo, dei suo complemento a 2, se è 
negativo. 

Vi A poi una terza forma, delta 
compressa, utilizzata dal I iterai 52 
{$taGk-<tata) r che consente di rap- 
presentare un valore in ti. point con 
un numero ridotto di bytes, da 2 a 
5.“' (il passo A (ratto dai libro “I se- 


greti detto Speclrum r ' f opera 
dell 'autore di quasi a utility, che po- 
tete richiedere alla mastra casa edi- 
trice}. 

Il breve programma qui presenta- 
to esegue la conversione di un vaio- 
re numerico da uno dei seguenti (or- 
mati agli altri due: decimale, full 
floating point, floating point com- 
presso. 

La conversione viene effettuala 
da una breve roullne In linguaggio 


macchina, sistemata nella linea 
REM all'inizio del listato. 

La prima I i nea I egge una v&r iabi le 
di sistema che individua la locazio- 
ne a cui inizia la REM che segue: 
rende perciò II programma utilizza- 
bile senza modifiche anche con l'In- 
terfaccia 1. 

Cogitate la REM con 20 carati eri 
qualsiasi: Il codice macchina viene 
ricaricato a ogni RUM, 


Scroll 

orizzontale 

di Mauro Piamola 


Un programmino di utilità e-ss re- 
ni amente versatile; esegue lo scroll 
orizzontale di una stringa di qual- 
siasi lunghezza, facendola scorrere 
da destra a sinistra sullo schermo 
dopo averla ingrandita, e ripetendo- 
la airmf inito (fino a che non viene 
dato un comando di break}. Come 
una titolatrice, dite? EsattO- 
La prima linea serve per indivi- 
duare sa locazione di inìzio della 
REM che segue la linea stessa, e 
cui è contenuta là routine In li mg. 
macchina, lunga 132 byn;es: tanti so- 
no i caratteri (qualsiasi) da inserire 
nella REM al momento deila digita- 
zione del programma 
La variabile NXTLIN (2363735) 
contiene infatti l'indirizzo delia 
prossima linea di programma - pros- 
sima a quella puntata al momento 
dal cursore di programma: questo 
consente, avendo una routine tot al - 
meni e rilocabile come questa, di In- 


serirla in qualsiasi punto del Usiate, 
ed evita che sorgano problemi 
quando interviene la ROM ombra 
dell'interfaccia 1. 

Battete II programma tacendo at- 
tenzione a trascrivere esattamente 
lutti I DATA, che verranno aul ornali- 
cameni e caricati nella REM, non 
appena date RUN. 

Quindi vi viene chiesta la stringa 
da far scorrere- Con fi si ripete il 


RUM, per un'altra scritta, con E si 
esce. 

La routine non tocca gii attributi 
correnti, perciò potete predisporre 
qualsiasi combinazione di INK e 
PAPER, ottenendo effetti spettaco- 
lari- Il movimento da sinistra a dè- 
stra A una "scivolata" molto fluida 
e gradevole, compiè! amente priva 
di scatti. Ottimo per pubblicità in 
vetrine. 
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Chiamate 
al sistema 
operativo 


Con questo sumere iniziamo una 
serie di articoli dedicata all'analisi 
del sistema oparativo dot QL, il 
QDDS, illustrando le più importanti 
routine^. 


PgT ciascuna di esse riporteremo 
i parametri di chiamata, I parametri 
di ritorno, una dettagliala spiega- 
tone del funzionamento e i codici 
necessari par accedervi. Prima di 
questo. è parò opportuno tracciare 
a grandi linee lo schema dei siste- 
ma operativo del QL e il modo di ac- 
cedervi da linguaggio macchina. 

Innanzitutto la domanda di rito: 
cos'à un sistema operaiivo? Esseri- 
Zi a; mente si può al ferma re che un 
sistema operativo è quellìnsieme 
di rom Ines d'utilità che sì occupano 
di tuffi i compiti elementari di una 
macchina, come scrivere un carat- 
tere sui video o leggere la tastiera, e 
che amministra l’uso della memoria 
e delle periferiche collegato al com- 
puter. 

Nel ClL il sistema operativo si 
chiama QDOS e la darai ter ittica 
che meglio lo distingue nel gran nu- 
mero di Sistemi operativi delle mac- 
chine della sua stessa faccia di 
prezzo è la capacità di supportare ri 
multitasking, ovvero la facoltà di far 
girare quasi simultaneamente più 
di un programma in llng. macchina, 
cosi avviene* in configurazione ba- 
sa, con il sistema operativo e II ba- 
sic. 

Questa caraneristica nasconde 
delle possibilità veramente notavo- 




li, per esempio negli advenfures, ma 
anche in moltissime altre applica- 
zioni, e bisogna notare che finora 
nessuna macchina al di sotto dei 3 
mifioni ne dispone, a riprova del fat- 
to che II multitasking richiede una 
notevole potenza di base per poter 
essere implementato, e sul QL, gra- 
zie ai processore a 32 m e ai 126k 
di memoria, tutto ciò diventa possi- 
bile a un prezzo estremamente bas- 
so. 

fi QDOS è diviso in vaile anioni, 
ognuna dedicata allo svolgimento 
di un compito ben preciso nell'am- 
bito della macchina; gestione del 
multitasking (SCHEOULER), con- 
trollo della memoria, controllo delle 
risorse, uso dalle risorse, roti! Ines 
d'interrupi. L'accesso a queste se- 
zioni è possibile mediante una fun- 
ge serie di routlnes di gestione co- 
stituenti il cosiddetto tornar dei gi- 
stema operativo. 

Gi sono due differenti modi per 
chiamale una routine, a seconda 
che essa debba funzionare In modo 
USER o In modo SUPERVISORI: nel 
primo caso Si usano dei VETTORI 
(punì acori a 13 bit che indicano la 
locazione d'inizio della routine in 
questione), nel secondo delle TRAP. 

Per esempio, per chiamare il vet- 
tore situato alla locazione 110H, 
useremo queste istruzioni; 

(blocco d'istruzioni che caricane r 
parametri richiesti nei giusti regi- 
stri) 

MOV£.W$110,A2 

JSRIA2) 

ovviamente il registro A2 pub es- 
sere sostituito con yn altro a piace- 
re fra quelli che non devono essere 
passati come parametri alla routi- 
ne. 

Una TRAP si chiama Invece in 
modo più semplice: ad esempio per 
chiamare fa ramine MT-fNf, m cui 
Codice è fdO = 0, |rap 1}, si userà: 

(blocco distruzioni ohec&ricano I 
parametri richiesti nei giusti regi, 
stri! . 

MOVEQ $0.00 
TRAE 1 


Con il 6800&CÌ sono 1$ TflAPs, da 
0 a 15, a disposizione dei sistema. 
Mentre 'le TRAPg da 0 a 4 comprese 
anno riservate al sistema operativo, 
le altre sono a disposizione 
dell'utente, che puù rlprogrammare- 
le mediarne un'altra routine def 
QDOS, 

Il procedimento generico per 
chiamare una TRAE è quindi il se- 
guente; dapprima si caricano fc giu- 
stri registri con i parametri da pas- 
sare alta routine: poi si selezionala 
routine nell'ambito del la TRAP inse- 
rendone il codice In DO' infine Si 
esegue la TRAE. 

I par amai ri di ritorno, per entram- 
bi i sistemi, sono contenuti nei regi- 
stri del processore o, In certi casi, 
nello ataclo II codice d'errore di tro- 
va Invece in PC, e il valore riportato 
è quello standard QDOS (abbiamo 
pubblicato un articolo euli 'argo- 
mento). 

Se D0= 0 al ritorno della rauilne, 
è tutto GK; altrimenti c’è gualche 
errore a cui la routine deve reagire 
analizzandole ii codice. Non è ne- 
cessario eseguire del controlli su 
DO, in quanto quesli vengono già 
eseguiti dar QDOS, che prima di 
passare il coni rollo ai programma 
chiamante esegue un TST,8 db; di 
conseguenza i tlags vengono in- 
fluenzati dal valore di db. 

In pratica, per accertarsi che non 
b'è stato alcun errore nello svolgi- 
mento della routine, if programma, 
chiamante deve semplicemente 
operare cosi; 


(chiamata della ramine) 
BNE label 


(Istituzioni da eseguire nel caso 
non ci siano stati errori) 

label 


(istruzioni da eseguire In caso di 
errore). 

Mei prossimi numeri inizieremo a 
illustrare le toutines piu importanti 
dei QDQ$. 
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Hard- 
copy 
del video 

Balla, Mussici A Zunin 

La riproduzione su carta di ima 
schermata (l 'hard-copy, appunto) è 
una delle opzioni che la maggior 
parte degli utenti considera, a ra- 
gione, Irrinunciabile; non si traila 
solo di poter stampare la scherma- 
ta di un gioco - sarebbe poco più 
che uno sfizio da bobbista. poter 
trasferire sut foglio grafici a tabelle 
e estremamente utile in qualsiasi 
lavoro. E vedremo tra poco che pro- 
prio il pacchetto grafico-gestionale 
EASEL consente di realizzare copia 
dello schermo. 

Anche i più masochisti dovrebbe- 
ro già essersi resi conto che tentare 
soluzioni in basic richiedo la pa- 
zienza di Giobbe: 32 Kilobytes da 
trasferire, quando i 71? scarsi dello 
Speci rum impegnavano la stam- 
pante por oltre IP minuti (parliamo 
di basic su stampanti non 
dedicate), dissuaderebbero chiun- 
que. 

É quindi necessàrio lavorare in 
linguaggio macchina, 

Fort unat ameni e. EASEL contie- 
ne là routine che ci serve, e il poco 
lavoro da tare consiste nell'Isola- 
mento di tale software dai resto del 
pacchetto, per poterlo utilizzare ih 
tutte le situazioni. 

li tempo di esecuzione di una co- 
pia è di circa 55 secondi (dipende 
anche dalla stampante usata): un 
tempo deci samenl e eccezionale, se 
pensate che si (ratta di un' hard- 
copy “intelligente" 1 , cioè non sem- 
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piicemente bianco e nero, ma con 
una stala di grìgi, secondo i colori, 
otlenuta con diverse densità di pun- 
ti. 

La routine è gestii a con la tecni- 
ca delta di overlay, il termine sta a 
indicare che una stessa area di me- 
moria del computer viene utilizzata 
per più routines, che risiedono tutte 
sul nastro (o sul disco), e vengono 
caricate di volta in volta ai momen- 
to deil'utiliziò. 

Queste, come potete Intuire, faci- 
lita mollo anche II lavoro di indivi- 
duazione e isolàmenlo della routine 
stessa: 

a - ponete EASEL nel drive 2 
b - ponete una cartuccia con un 
po' di nastro libero (basta un paio di 
settori) nel drive 1 
c - eseguila uno dei seguènti co- 
mandi (uno Solo), secondo la stam- 
pante posseduta: 
per Epson FX-SO e compatibili 
C0PYMDV2 GPRINT PATTO 
MDV1 HARDCOPY (enter) 
oppure, per integre* 132 A c. 
COPY MPV2 INTGX132 PRT 
TCL. 


oppure, per Ottimale 80 & c. 
COPY1WDV2 JX0Q PFTTTO,., 
Nell’eventualità di un messaggio 
Bad or changed medium , I a Coi pa è, 
nella quasi totalità dei casi, della 
cartuccia destinataria: sostituitela. 

Per caricare in memoria la routi- 
ne, occorre eseguire preventiva- 
mente 

HCOPY = HESPF (1000) 
con cui II OL riserva alfa routine 
un’area di RAM, quindi, di seguito 
LBYTES MDVt HARDCOPY, 
HCOPY 

Quando avrete la schermala 
pronta da stampare, date semplice- 
mente 

CALI HCOPY 

inutile dire che la variabile HCO- 
PY non deve essere alterata, 

Potete anche scrivere una breve 
PROCedura che effettui la chiama- 
ta, ri ducendo ancora II numero di ta- 
sii da premere. 

Come ultima cosa ricordiamo 
che la velocità di trasmissione sulla 
porta SERI è di 8600 baud: volendo 
alterarla basta usare l’apposito co- 
mando basic BAUD n. 




super 

basic 

di Marca Musslni 

Prima di cominciare a parlare dei 
devj'ces SCR e CON, chiariamo un 
particolari riguardo a! Menarne da 
usarsi quando si apra un canale. 

Con SCR e CON ci sono rispetti- 
vamente quattro e cinque parametri 
da specificare In coda ai eteree /ra- 
me (per ss. 

SGR_T0Ox2OOa2Qx30). 

Tuttavia il 0DO5 ha un dafault 
per ciascuno di questi parametri 
{vedere più avanti) e permette quin- 
di di saltarti tranquillamente tutti p 
solo in parte; quando vengono igno- 
rati In blocco, è tutto chiaro; 

OPEN tt3, SCR 

apre una finestra di dimensioni e 
posizioni standard col legandola al 
canale 3; ma quando se ne specifi- 
ca solo qualcuno il discorso si corn- 
plica. Ir* questo caso, Il QDQS con- 
trolla quali parametri mancano e 
quali cr sono, dopodiché ricostruì- 
sce il Menarne completo usando -i 
dati del l'utente (deve ci sono) o il re- 
lativo valore di default (dove manca- 
no). Per esempio, supponiamo di 
impostare 

OPEN **4, SCR^aSD 

Il QL fonderà questo frenarne 
con il default fino a completarlo. 
Seguiamo passo passo il ragiona- 
mento pel CJOOS (sopra il frenarne, 
sorto il default) 

5CFL A20 

SCR 440 x 180A32 X 16 

SCR _ 440 x A2D 

SCR _ 440 x 1 &0À32 X 1 6 

SCR_ 440 X 1EWA20 

SCR—440 x 1B0A32 x 10 

SCft_44Sx1B0A20Kl6 

SCR _448 x 1SQA32 x 10 


Come si vede, a un certo punto il 
QL capisce che vegliamo sostituire 
Il valore di default delta coord, oriz- 
zontale (32) con uno deciso da noi 
(20), quindi elimina il rispettivo valo- 
re di detault prendendo per buono il 
nostro; alla fine Ottiene il frenarne 
completo, che altro non è se non il 
risultato di una fusione fra il defauii 
e l dati che abbiamo specificalo. 


DEVICES DISPONIBILE 
SUL QL INESPANSO 


IL DEVI CE SOR 

A) GUIDA DI REPERIMENTO 

Tipo di dati: 6 bit 
Direziona dall: scio output, non 
bufferlzzati. 

Carnieri perticolarir chr|(10) è A 
CAPO {LE, Line Feed), i restanti ca- 
ratteri non compresi fra li codice 32 
e il 191 vengono visualizzati con 
una griglia par segnalare che il ca- 
rattere non è definito da aicun pat- 
tern. 

Sintassi del Menarne per OPEht; 
SCR^iarghezza x altezza A po- 
sizione x X posizione y 
Esempi validi: 

SCF!_100x 109536 x 22 
SCR _^1 DO x 1 00A36 x 22 
scr^-3ì0x 40a50 x 60 
sor A2 x 2 
scr 

Esempi non validi: 

SCRlOOxlO0a2Ox5O (manca il 
separatore) 

SCCfl _ 20 x 30a2Q x 30 (sbaglia- 
to il device name) 

$CR_i0a3Cx I4a22 (errate le 
lettere di separazione) 

SCfl 2 x 2a2 x 2 (troppi sepa- 

ratori) 

SCR„1Q X IOalOx 10 x 20 (trop- 
pi parametri) 

Defsull; 

SCR„440x I60a32x16 
Tipo di devlce: output su schermo 
(tn modo lesto: la grafica è un di- 
scorso a parte, che tratteremo in 
una prossima puntata) 

B) CARATTERISTICHE 

SCR è un device di solo output: 
inutile quindi cercare di effettuare 
degli INPUT rivolti ad esso. 

i parametri specificati in coda al 
device nanna determinano la di meri- 
alone e la posizione della finestra 


cui II canale andrà a col legarsi; 
l'unità di misura è ii pixel. U fine- 
stre non possono essere più grandi 
di= tutto io schermo, e non devono 
"sbucarne fuori”, nemmeno in par- 
te- Le coordinate dello schermo, in 
entrambe le risoluzioni, sono 0-511 
in orizzontate e 0 —255 in veri itale, 
con i'orlglne (0.0) situata in aito a si- 
nistra. Sul TV l’area vi g ibi le e gene- 
ralmente quella contenuta in una fi- 
nestra larga 448 e alta 240 plxsls, si- 
tuata 32 pixel a destra dpi margine 
sinistro a 16 sotto il margine supe- 
riore. Con II TV si perdono intatti 32 
pixels a sinistra, altri 32 a destra e 
10 in alto. Nessuna differenza nella 
fascia bassa, fatta eccezione per la 
minor larghezza. 

I caratteri inviati a una finestra 
vengono visualizzati in sequenza da 
sinistra verso destra; le eccezioni 
sono due: 

1) E caratteri hanno raggiunto il li- 
mite desiro; 

2) il devicè driver riceve un carat- 
tere ASCII lO(Entef). 

In questi dus casi il computer ef- 
fettua un CR e un LF, ovvero va a ca- 
po, A differenza delio Spectrum, se 
lo schermo è pieno lo scroi I viene 
eseguito senza chiedere conferma 
ai i' operatore, tuttavia, se ve n'è il bi- 
sogno. si può bloccare il computer 
premendo CTRL-P5, ohe blocca non 
solo lo scroti, ma qualsiasi cosa gin 
sotto QDQS {con qualche eccezio- 
ne, anche il linguaggio macchina). 

In modo 8, i pixel sono Fa metà 
(25fi per riga), eppure le coordinate 
vanno ugualmente da 0a51 1 La co- 
sa si spiega se si considera che I pi- 
xel sono contati due volte: cosi, se 
in modo 4 punti (100, 100) e (101, 
100) sono -distinti, in modo 8 sono 
soliamo due modi di indirizzare io 
stesso pixel. Ciò permette una per- 
fetta compatibilità dei comandi gra- 
fici in modo 0 e in modo 4: se cosi 
non fosse, i programmi, se fatti gi- 
rare in modo 4, dovrebbero raddop- 
piare le coordinale orizzontali. 

Inoltre na discende che, aprendo 
una llnaslra con le stesse coordina- 
ta e dimensioni in modo 4, si- ha 
esattamente io stesso effetto che si 
sarebbe ottenuto In modo 6. 

Lo schermo è una periferica piut- 
tosto complessa: il GDQS riserva 
ad ogni finestra aperta uno spazio 
supplementare al consueto channei 
definitici block (vvindmv deftnttfofi 
Wock), che contiene informazioni 
sui colori, sulla forma e dimensione 
dei caratteri, sullo Stato di OVER, 
sul BQRDER, sulla grafica, sugli 
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stoppie s, sulle dimensioni della fi- 
nestra e cosi via. Poiché ogni fine- 
stra tva un suo definition 

ptoak personale, le finestre sono 
completamente indipendenti te une 
dalie altre, e possono addirittura 
avere set di caratteri diversi, senza 
interferi re. in questo stesso numero 
ri portiamo due tabel I e si l 'oigan izza- 
ìione dei cbanne! datlnltlon òJocfc'e 
wirtdow tfetinliion biock, tratte 
datr'Advaced User Guide" di A. 
Dickens* edita da Addai, Camttrid- 
ge. 

Per chi volesse compiere esperi- 
menti sul l'argomento, ricordiamo 
inoltre ohe ri c-hanneì definition 
block del canale O inizia alla loca- 
zione 167424 oche quelli dei canali 
l e 2 cominciano rispettivamente 
25tì e 512 bytas più avanti* 

Non si pud mal sapere con si cu 
rezza, invece, la dislocazione dei 
channei definition blooks relativi a 
canali aperti dopo i primi tre, per- 
chè il GDOS li mette dove gli fa più 
comodo e non dove la logica sugge- 
rirebbe di cercarli. 

IL DÈVICE CON 

Al GUIDA DI RIFERIMENTO 

Tipo dt dati: a bìi 

Direzione dati: inpul/Output. L'In- 
put è bufferizzato. 

Caratteri particolari: gli stessi di 
SCR: inoltre, premendo CTRL-C, si 
passa da una finestra all'altra nei 
caso che più programmi stiano gi- 
rando in multitasking, aspettando 
dati ognuno nella sua wìndow. 

Stillassi dei 1ilename per OPEN: 

GON^IarghXaitzAposKXposy - 
lynghezzabuffer 

Esempi validi: vale quanto già 
detto per SOR, $1 ricordi solo di non 
trascurare il separatore Ira l'ultimo 
parametro della finestra e quello di 
estensione buffer. 

Esempi non validi: vedi sopra: at- 
tenzione solo a questo caso: 

CQN__l2fi 

ette è perfettamente valido e crea 
una finestra di dimensioni defauit 
con un buffer di 128 bytes. 

Infatti il QL* incontrando due se- 
paratori, capisce ctie ciò che trove- 
rà dopo II secondo separatore è i! 
parametro sull 'estensione dei buf- 
fer, 

Con &CR, dove è invece previsto 


un solo separatore in tutto il fi lena- 
me, trovandone due QL visualizza 
un massaggio di errore. 

Dalaull: 

CON _ 448 x 10Oa32 x 16^126 

Tipo di devlce: svolge In pratica le 
funzioni di un terminale: riceva dati 
da una tastiera, visual bandoli sul 
monitor Ha finestra) man mane, e in- 
serendoli In memoria (il buffer)* 
aspetta la pressione di ENTER, li 
trasmette al computar (input) e vi- 
sualizza e eventuali sue risposte 
(oyPput), 

Per non tenore impegnato II com- 
puter, i dati vengono spediti tutti in- 
sieme (si dicono quindi BUFFERIZ- 
ZATIi dopo essere stati raccolti, ap- 
punto. in buffer la cui dimensione è 
deteim inatti le daff’ulents. Il default 
è dì 128 ttytes, ma ai possono speci- 
ficare valori ben maggiori. 

È questo buffer che permette al 
QL di prendere ordini mentre è oc- 
cupalo con qualche aura attività 
per poi eseguirli appena littore. Il 
buffer può anche riempirsi senza 


aver ncevulo nessun ENTER: In 
questo caso, Il QDDS lo svuota e vi- 
sualizza Il messaggio d'errore "buf- 
fer full". 

B) PARTICOLARITÀ 

Resi a solo da aggiungere che li 
device CON supporta un flusso bidi- 
rezionale di dati e che quindi per- 
mette l'uao di INPUT. Si possono ef- 
fettuare INPUT dai canali 0,1 e 2, 
proprio perchè non sono dei sempli- 
ci SCR ma del CON; provale a dlgi- 
lare 

G P £ N itti , 

SCR „44B x 20GA32 x 16 
PRI NT" PROVA OUTPUT" 

INPUT" PROVA INPUT'lM 
e vi accorgerete che il QL a'inpun- 
ta quando gli si chiede di ricevere 
daii da un SCR, che è unidireziona- 
le. Per ristabilire li consueto ordine 
di cose date 

QPEN#T,GQN_446x2Q0a3- 

2x16^128, 

Per verificare che lutto è a posto 
provale a comandane un INPUT a$. 


JS.ilQL 

si evolve 

Dopo le versioni Pfi, F&, AH, JM 
(le ultime due, apparentemente 
equivalenti, eosiltulscono la stra- 
grande maggioranza del parco- 
macchine Installato in Italia), la Sin- 
clair he approntato una nuova ver- 
sione di basic e sistema operativo* 
che equipaggia I nuovi OL venduti 
in Inghilterra a pari ire da settembre. 

La ROM JS, così si chiama l'ulti- 
ma relea&e, presenta sostanziali 
migliorie rispetto alle precedenti: 
per il basic abbiamo la scomparsa 
di quasi tutti i famigerati bugi rima- 
sti anche netta JM e l'implementa- 
zione, sembra, di buona parta 
dell'ottimo "OL-Toolkit” di Tony 
Tebby $ GJUMP) le novità più signi- 
ficative sarebbero quindi l'acceeeo 
rancori- ai files su Microdrive, a ge- 
stione. eliminazione, attivazione, 
analisi del Jote, e quindi del multi- 
tasking, direttamente da Basic: 
inoltre nuove varianti di EXEC adat- 


te a concatenare i jotts e a permet- 
tere loro di scambiarsi dati, conver- 
sioni bìnarioi'aaadacimaie - decima- 
le e viceversa, funzioni per incolon- 
nare correttamene# I numeri (una 
specie di FRI NT USINO} e Oca) via. 

Ma soprattutto è stata finalmen- 
te implementata la gestione degli 
errori, resa possibile da alcuni nuo- 
vi comandi: $1 tratta di un sistema 
molto flessibile e potente: m prati- 
ca, ogni voli# che Incontra un erro- 
re, il QL, anziché fermarsi, esegua II 
gruppo di linee compreso tra WHEN 
EftRor e END WHEN: questa routi- 
ne può regolarsi in base al tipo d'er- 
rore capitano, poiché il basic JS 
mette a disposizione duo appositi 
funzioni, ERUN ed EflNUM, che ri- 
tornano rispettivamente il codice e 
il numero di linea dell'ultimo errore 
capitato. 

Quando a! ODGS. 1# stesse voci 
parlano di incrementi delle presta- 
zioni dei Microdrlv&s, ovviamente in 
termini dii velocità, e dell'eliminazio- 
ne dei pochissimi bugs rimastio. 

Sarebbero infine state Implemen- 
tate alcune Utilities prima difettose 
o mancanti. 

In Italia la ROM JS non è ancora 
disponibile* 
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Vivi anche tu l’avventura del 


